VBA Excel Formulaire txtBox majuscule

Bonjour,

J'essaye de "placer" un code permettant d'obtenir dans la feuille "Eleve" le nom saisi en majuscule.
Je pose mon tablier cherchant midi à quatorze heures (comme d'hab !).

La seule chose à laquelle je suis arrivé c'est d'avoir la première lettre en majuscule (...) dans la feuille et les majuscules dans le formulaire. En ce dimanche je ressemble au Lapin crétin.

Voilà le résultat de ma congitation :

Private Sub cmdValider_Click()
   ' Test de la présence du nom ...
   If Me.txtNom.Text = "" Then

        MsgBox "Vous devez entrer un nom."
        Me.txtNom.SetFocus
        
        Exit Sub
    End If
 
  ' Test de la présence du prénom ...
  If Me.txtPrenom.Text = "" Then

        MsgBox "Vous devez entrer un prénom."
        Me.txtPrenom.SetFocus
        Exit Sub
    End If
    
    ' Conversion du nom et prénom en NOMPROPRE'
    Nomconverti = Application.WorksheetFunction.Proper(Me.txtNom.Text)
    Prenomconverti = Application.WorksheetFunction.Proper(Me.txtPrenom.Text)
     
     'Mise en place des valeurs saisies
   Range("A65536").End(xlUp).Offset(1, 0).Value = Nomconverti
   Range("B65536").End(xlUp).Offset(1, 0).Value = Prenomconverti
    
    ' Remise à blanc du formulaire
   Unload Me

End Sub

Si un PRO pouvait m'aider ? Merci de son aide.