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