Sub toto()
Dim i As Integer
Dim texte As String
Dim j As Byte, cpt As Byte
Dim num As String
For i = 1 To Range('a65536').End(xlUp).Row
texte = Replace(Cells(i, 1), ' ', '')
j = 1
Do While j <> Len(texte) + 1 And cpt <> 10
If IsNumeric(Mid(texte, j, 1)) Then
num = num & Mid(texte, j, 1)
cpt = cpt + 1
Else
num = ''
cpt = 0
End If
j = j + 1
Loop
Cells(i, 5) = num
Cells(i, 5).NumberFormat = '0#'' ''##'' ''##'' ''##'' ''##'
num = ''
cpt = 0
Next i
End Sub