Textbox nom propre

Private Sub TextBox1_Change()
  TextBox1 = Application.Proper(TextBox1)
End Sub

Sub nompropre()
For Each tx In UserForm1.Controls
 If InStr(tx.Name, "TextBox") <> 0 Then tx.Value = UCase(Left(tx.Value, 1)) & LCase(Mid(tx.Value, 2, Len(tx.Value) - 1))
Next
End Sub

Private Sub NomPropre()

    Dim Ctrl As Control
    
    For Each Ctrl In Me.Controls
    
        If TypeName(Ctrl) = "TextBox" Then
        
            Ctrl.Text = Application.WorksheetFunction.Proper(Ctrl.Text)
            
        End If
        
    Next Ctrl

End Sub

Private Sub MaBoite_Change()
Dim a As Integer
a = InStr(MaBoite.Name, "ox") + 2
If Val(Mid(MaBoite.Name, a)) Mod 2 = 0 Then
  If Len(MaBoite) > 0 Then UserForm1.Controls("TextBox" & Val(Mid(MaBoite.Name, a)) - 1) = "N°" & Replace(UserForm1.Controls("TextBox" & Val(Mid(MaBoite.Name, a)) - 1), "N°", "") Else UserForm1.Controls("TextBox" & Val(Mid(MaBoite.Name, a)) - 1) = Mid(UserForm1.Controls("TextBox" & Val(Mid(MaBoite.Name, a)) - 1), 3)
  MaBoite.Value = Application.WorksheetFunction.Proper(MaBoite.Value)
End If
End Sub