Function Nom$(txt$)
Dim i%, deb%
txt = Application.Trim(txt) 'supprime TOUS les espaces inutiles
For i = 1 To Len(txt)
deb = i
If Mid(txt, i, 3) = UCase(Mid(txt, i, 3)) Then Exit For
Next
For i = deb To Len(txt)
If Mid(txt, i, 3) <> UCase(Mid(txt, i, 3)) Then Exit For
Next
If deb = i Then Exit Function 'nécessaire si pas de nom
Nom = Trim(Mid(txt, deb, i - 1))
End Function
Function Prénom$(txt$)
txt = Application.Trim(txt)
Prénom = Trim(Replace(txt, Nom(txt), ""))
End Function