Sub SepareNomPrenom()
Dim i As Integer
Dim Chaine As String
Dim vASC As Integer
Dim x As Integer, y As Integer
On Error Resume Next
For i = 1 To 14844
Chaine = Range("A" & i).Value
y = 1
Do
x = InStr(y, Chaine, " ")
vASC = 0
If x > 0 Then
vASC = Asc(Mid(Chaine, x + 2, 1))
End If
y = x + 1
Loop Until vASC < 65 Or vASC > 90 Or x = 0
If vASC <> 0 Then
Range("B" & i).Value = Left(Chaine, x - 1)
Range("C" & i).Value = Right(Chaine, Len(Chaine) - x)
End If
Next i
On Error GoTo 0
End Sub