Function PreNom(chaine)
i = 1
Do While Asc(Mid(chaine, i, 1)) < 96 And i < Len(chaine)
i = i + 1
Loop
PreNom = Mid(chaine, i - 1)
End Function
Function Nom(chaine)
i = 1
Do While Asc(Mid(chaine, i, 1)) < 96 And i < Len(chaine)
i = i + 1
Loop
Nom = Left(chaine, i - 3)
End Function