Excel: Supprimer uniquement les caractères alphabétiques (conserver les caractères spéciaux)

Deux jeux de données à comparer.

6701.2345_5432 et sur le second le système a inséré des lettres. 6701E.2345_5432

J'ai environ 8 000 lignes à comparer et je n'arrive pas à modifier le code VBA pour supprimer alphas sans supprimer les caractères spéciaux que je dois conserver.

Merci de votre aide!

Ce code VBA utilise RegEx pour supprimer les caractères alphabétiques de toutes les cellules de la feuille active.
Changement [A-Za-z] à tout ce qui devrait être enlevé.

Sub RegExRemove()

    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    RegEx.Global = True

    RegEx.Pattern = "[A-Za-z]"
    For Each objCell In ActiveSheet.UsedRange.Cells
        objCell.Value = RegEx.Replace(objCell.Value, "")
    Next

End Sub

Révision mineure pour utiliser uniquement les cellules sélectionnées

Sous RegExRemove ()

Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Global = True

RegEx.Pattern = "[A-Za-z]"
For Each Cell In Selection()
   Cell.Offset(0, 1).Value = RegEx.Replace(Cell.Value, "")
Next

End Sub