Supprimer une partie d'une chaine de caractère à partir d'un

Bonjour,

Voici mon problème : j'ai besoin de supprimer tous les caractères placés avant le premier chiffre (en partant de la gauche) de la chaine de caractères. Il s'agit d'une liste d'adresses, j'ai mis un exemple en pièce jointe.

Par avance merci pour votre aide.

DIMA

et s'il n'y a pas de chiffres ? Ligne 7

Sub toto()
With Sheets("Feuil1")
On Error Resume Next
For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row
compteur = 0
While IsNumeric(Left(.Cells(i, 1), 1)) = False And compteur < 500
.Cells(i, 1) = Right(.Cells(i, 1), Len(.Cells(i, 1)) - 1)
compteur = compteur + 1
Wend
Next i
End With
End Sub

Un grand Merci pour votre collaboration.