bonjour,
en faisant l'hypothèse qu'il n'y a qu'un seul prénom, la macro suivante devrait le faire :
Sub aargh()
With ActiveSheet
dl = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To dl
r = Split(.Cells(i, 1), " ")
.Cells(i, 3) = r(UBound(r))
.Cells(i, 2) = Replace(.Cells(i, 1), " " & .Cells(i, 3), "")
Next i
End With
End Sub