Sub test()
Dim tabStr() As String, texte As String, i As Integer
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
texte = Range("A" & i).Text
While InStr(texte, " ") <> 0
texte = Replace(texte, " ", " ")
Wend
tabStr = Split(texte)
Range("A" & i) = tabStr(0)
Range("B" & i) = tabStr(1)
Next i
End Sub