Private Sub CommandButton1_Click()
Dim c As Range
Dim i As Integer, x As String, n As String
b = 1
Range("A1:A5").Select 'change le range pour ce que tu désire
For Each c In Selection
For i = 1 To Len(c)
x = Mid(c, i, 1)
If IsNumeric(x) Then n = n & x
Next i
If n <> "" Then
Sheets("Feuil2").Range("A" & b).Value = n
n = ""
b = b + 1
End If
Next c
End Sub