XL 2016 Supprimer les caracteres avant les chiffres dans une cellule

Sub Macro1()
Dim CAM As Range 'déclare la variable CAM (Cellule À Modifier)
Dim VCAM As String 'déclare la variable VCAM (Valeur de la Cellule À Modifier)
Dim I As Integer 'déclare la variable I (Incrément)

Set CAM = Range("A1") 'définit la cellule à modifier (à adapter à ton cas)
VCAM = CAM.Value 'définit la valeur VCAM
For I = 1 To Len(VCAM) 'boucle sur tous les caractères de VCAM
    'si le caractère de la boucle est numérique redéfinit VCAM (la valeur à partir de ce caractère), sort de la boucle
    If IsNumeric(Mid(VCAM, I, 1)) Then VCAM = Mid(VCAM, I): Exit For
Next I 'prochain caractère de la boucle
CAM.Value = VCAM 'définit la valeur de CAM
End Sub