[COLOR="DarkSlateGray"][B]Function Nom_Prénom(r$)
Application.Volatile
Dim dat$(1 To 2)
r = Replace(r, Chr(160), Space(1))
r = WorksheetFunction.Trim(r)
r = Replace(r, " -", "-")
r = Replace(r, "- ", "-")
If InStr(1, r, Space(1)) Then
dat(2) = WorksheetFunction.Proper(StrReverse(Mid$(StrReverse(r), 1, InStr(1, StrReverse(r), Space(1)) - 1)))
dat(1) = UCase(Left$(r, Len(r) - Len(dat(2)) - 1))
End If
Nom_Prénom = dat
End Function[/B][/COLOR]