Bonjour,
Adaptation d'une fonction que j'avais trouvé ici
Function MAJ_Min(S)
Dim Nom, Prenom, Prenom2
On Error Resume Next
Nom = UCase(Split(S)(0))
Prenom = Left(Application.Proper(Split(S, " ", -1)(1)), 1)
Prenom2 = Left(Application.Proper(Split(S, " ", -1)(2)), 1)
MAJ_Min = Nom & " " & Prenom & Prenom2
End Function
Bonne journée