Bonjour,
Tu peux essayer avec :
Nom =TextBox1
Nom = UCase(Left(Nom, InStr(Nom, " "))) & WorksheetFunction.Proper(Right(Nom, Len(Nom) - InStr(Nom, " ")))
Range("A1")=Nom
Il y a peut-être plus simple mais çà tient sur une ligne !!
Sinon, en passant par une cellule intermédiaire dans la feuille :
=MAJUSCULE(GAUCHE(A2;CHERCHE(" ";A2)-1))&" "&NOMPROPRE(DROITE(A2;NBCAR(A2)-CHERCHE(" ";A2)))
Bon courage.
@+