Sub retraiter()
Dim i, h, k, z As Integer
Dim Num As String
Dim Flag1 As Boolean
Num = "0123456789"
z = 0
For i = 2 To Range("A65536").End(xlUp).Row
For h = 1 To Len(Range("A" & i).Value)
For k = 1 To 10
If InStr(h, Mid(Range("A" & i).Value, h, 1), Mid(Num, k, 1)) <> 0 Then
Flag1 = True
z = z + 1
GoTo Borne:
Else
Flag1 = False
End If
If Flag1 = False And z > 0 Then
Range("A" & i).Value = Replace(Mid(Range("A" & i).Value, 1, h), " ", "") & " " & LTrim(Mid(Range("A" & i).Value, h + 1, Len(Range("A" & i).Value)))
z = 0
End If
Next k
Borne:
Next h
Next i
End Sub