Dim Str As String
Str = Range("A1").Value
Dim i As Integer
For i = 1 To Len(Str)
Dim lettre As String
lettre = Mid(Str, i, 1)
If lettre = " " Then
Dim prenom As String
prenom = Mid(Str, 1, i - 1)
Dim nom As String
nom = Mid(Str, i + 1)
i = i + 1
End If
Next i
Range("B1").Value = prenom
Range("C1").Value = nom