Private Sub Worksheet_Change(ByVal Target As Range)
' Nom en majuscule et première lettre du prénom en maj le reste en min
Dim pos As Integer
Dim nom, prenom As String
If Not Intersect(Range('A3:A20'), Target) Is Nothing Then
cel = Target.Value
If cel > '' Then
pos = InStr(1, cel, ' ', 1)
nom = Left$(cel, pos)
prenomMaj = Right$(cel, Len(cel) - pos)
prenomMin = Right$(cel, Len(cel) - pos - 1)
cel = UCase(nom) & UCase(Left$(prenomMaj, 1)) & prenomMin
Application.EnableEvents = False
Target = cel
Application.EnableEvents = True
End If
End If
End Sub