forcer les majuscules dans un textbox

.Cells(DerLig, 1).Value = UCase(Text_Nom)  'ucase permet de mettre en majuscule
    .Cells(DerLig, 2).Value = Application.Proper(Text_Prenom)  'permet de mettre la première lettre en majuscule

'nom majuscule
Private Sub TextBox1_Change()
Application.EnableEvents = False
TextBox1 = UCase(TextBox1)
Application.EnableEvents = True
End Sub

 'prenom nom propre
Private Sub TextBox2_Change()
Application.EnableEvents = False
TextBox2 = Application.Proper(TextBox2)
Application.EnableEvents = True
End Sub

'nom majuscule + prenom nom propre
Private Sub TextBox3_Change()
Application.EnableEvents = False
TextBox3 = UCase(TextBox3)
x = InStr(1, TextBox3, Chr(32))
If x > 0 Then TextBox3 = UCase(Mid(TextBox3, 1, x)) & Application.Proper(Mid(TextBox3, x + 1, Len(TextBox3)))
Application.EnableEvents = True
End Sub