Multiplication de code

Option Explicit
Private mestb() As New Classe1
Private Sub UserForm_Initialize()
Dim ctrl As Control, i As Byte
For Each ctrl In Me.Controls
    If TypeName(ctrl) = "TextBox" Then
        ReDim Preserve mestb(0 To i)
        Set mestb(i).montb = ctrl
        i = i + 1
    End If
Next ctrl
End Sub

Option Explicit
Public WithEvents montb As MSForms.TextBox
Private Sub montb_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789,", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Option Explicit
Private mestb() As New Classe1
Private Sub UserForm_Initialize()
Dim ctrl As Control, i As Byte
For Each ctrl In Me.Controls
    If TypeName(ctrl) = "TextBox" Then
        If ctrl.Name <> "TextBox6" Then
            ReDim Preserve mestb(0 To i)
            Set mestb(i).montb = ctrl
        End If
        i = i + 1
    End If
Next ctrl
End Sub

Option Explicit
Public WithEvents montb As MSForms.TextBox
Private Sub montb_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789,.", Chr(KeyAscii)) = 0 Then KeyAscii = 0
    If KeyAscii = 46 Then KeyAscii = 44
End Sub

If ctrl.Name <> "TextBox6" Then

Private Sub montb_Change()
Dim tolp As Single, tolm As Single
If montb.Value = "" Then montb.BackColor = &H80000005: Exit Sub
tolp = Val(UserForm1.Label1.Caption) + Val(UserForm1.Label2.Caption)
tolm = Val(UserForm1.Label1.Caption) - Val(UserForm1.Label3.Caption)
Select Case CDbl(montb.Value)
Case tolm To tolp
montb.BackColor = vbGreen
Case Not IsNumeric(montb.Value)
montb.BackColor = vbRed
Case Is < tolm, Is > tolp
montb.BackColor = vbRed
End Select
End Sub