Dim Nom As String
Dim Prenon As String
'On part du principe que le nom est à droite et le prenom à gauche
'Que les deux sont séparés par un espace
'Que le contenu de te cellule est dans nomprenom par exemple
Nom = Mid(nomprenom, InStr(nomprenom, ' ' + 1), Len(nomprenom))
Prenom = Mid(nomprenom, 1, InStr(nomprenom, ' ' - 1))
'dans cet exemple si nomprenom 'dede dupont'
' nom = Dupont
' prenom=dede