Private Sub Text_Prenom_Pers_KeyPress(ByVal Prenom As MSForms.ReturnInteger)
'Contrôle de la textbox récupérant le prenom
Prenom = Asc(UCase(Left(Chr(Prenom), 1)) & LCase(Right(Chr(Prenom), Len(Chr(Prenom)) - 1)))
'Prenom = Asc(StrConv(Chr(Prenom), vbProperCase))
'Prenom = Asc(Application.WorksheetFunction.Proper(Chr(Prenom)))
End Sub