Sub Garder_les_chiffres()
Dim Caractere As Integer, i As Integer, Cara As String, Chaine As String
For i = 1 To 10000
Chaine = ""
For Caractere = 1 To Len(Cells(i, 1))
If IsNumeric(Mid(Cells(i, 1), Caractere, 1)) Then Chaine = Chaine & Mid(Cells(i, 1), Caractere, 1)
Next Caractere
Cells(i, 2) = Chaine
Next i
End Sub