Bonjour à tous,
je ne sais si c'était voulu mais le 1er nom n'a pas d'espace entre prénom et nom.
Une proposition qui traite aussi ce cas.
Pour simplifier un nom doit faire au moins 3 lettres.
Function prénomNom(ch As String, part) As String
Dim i As Long, nom
For i = 1 To Len(ch) - 1
If Mid(ch, i, 3) = UCase(Mid(ch, i, 3)) Then Exit For
Next i
ch = Left(ch, i - 1) & "|" & Mid(ch, i)
nom = Split(ch, "|")
prénomNom = Trim(nom(part - 1))
End Function
Syntaxe :
=prénomNom($A2;1)
1: prénom, 2: nom
eric