Tu peux séparer nom et prénom mis dans une même cellule , à condition d'avoir un espace entre nom et prénom à l'aide de : DansChaîne
Je te joins un exemple que j'utilise dans un programme en excel 5, donc visual basic français

' recherche la position du premier espace
MaPos = DansChaîne(1; Cellules(b; "b"); " ")
' cas du nom sans terminaison par la barre espace
Si MaPos = 0 Alors
' affiche le nom complet
Cellules(b + 1; "b") = Cellules(b; "b")
Sinon
' affiche le début du nom
Cellules(b + 1; "b") = Gauche(Cellules(b; "b"); MaPos)
Fin Si

Le même en VBA2000 donc en anglais
' recherche la position du premier espace
MaPos = InStr(1, Cells(d, "b"), " ")
' cas du nom sans terminaison par la barre espace
If MaPos = 0 Then
' affiche le nom complet
Cells(d + 1, "b") = Cells(d, "b")
Else
' affiche le début du nom
Cells(d + 1, "b") = Left(Cells(d, "b"), MaPos)
End If

Ces exemples font partis d'une boucle. Tu peux adapter.