Problème fonctionnement du Code

Bonjour,

J'ai testé un code vba qui fonctionne bien avec 24 textbox sur un fichier excel.

Mais lorsque j'essaye de le reporter sur l'application sur laquelle je travaille et qui comprend 280 textbox concernées par le code, celui-ci ne fonctionne plus.

J'ai tout vérifié, mais je ne trouve pas la solution (je suis débutante)

Quelqu'un pourrait-il m'aider ?

Je joins les deux fichiers et voici le code,

Dim i As Long
Dim n As Long
Dim nbVirgule As Long
Dim nbPoint As Long

'Empêcher de saisir du texte et avertir d'une mauvaise saisie (lien avec module de classe)

Dim txtBox(1 To 12) As New Classe1 'Pour 12 TextBox

Private Sub UserForm_Initialize()

   Dim n, x As Long
    Dim ctrl As Control
    'Pour les 12 derniers
    For Each ctrl In Controls
        For n = 1 To 12
            If ctrl.Name = "TextBox" & n Then
                x = x + 1
                Set txtBox(x).txtBox = ctrl
           End If
       Next n
   Next

End Sub


'Obliger à saisir toutes les cases vides lors de la validation du USF (si case vide alors mettre un zéro)
Private Sub Cmd3_click()

    For i = 1 To 12
        If Me.Controls("TextBox" & i) = "" Then MsgBox "Case" & i & "vide" & vbNewLine & "si vide mettre un 0": Exit Sub
    Next i

'Envoyer le contenu des textbox vers les cellules excel en acceptant les calculs avec virgules et points
    Range("C1") = Val(Replace(Me.TextBox1, ",", "."))
    Range("C2") = Val(Replace(Me.TextBox2, ",", "."))
    Range("C3") = Val(Replace(Me.TextBox3, ",", "."))
    Range("C4") = Val(Replace(Me.TextBox4, ",", "."))
    Range("C5") = Val(Replace(Me.TextBox5, ",", "."))
    Range("C6") = Val(Replace(Me.TextBox6, ",", "."))
    Range("C7") = Val(Replace(Me.TextBox7, ",", "."))
    Range("C8") = Val(Replace(Me.TextBox8, ",", "."))
    Range("C9") = Val(Replace(Me.TextBox9, ",", "."))
    Range("C10") = Val(Replace(Me.TextBox10, ",", "."))
    Range("C11") = Val(Replace(Me.TextBox11, ",", "."))
    Range("C12") = Val(Replace(Me.TextBox12, ",", "."))
    
    Label3 = Range("C13")

End Sub
    
 Private Sub Cmd4_click()
    Dim fichier As String
        On Error Resume Next
        ChDir "C:\Programmes\"
        fichier = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xlsm), *.xlsm")
        
        If fichier <> False Then ThisWorkbook.SaveAs fichier
End Sub

Private Sub Cmd6_Click()
    UserForm1.Hide
    UserForm2.Show
End Sub