XL 2019 Probleme de code

[Richard 58]

Bonjour,
Mon formulaire ne se lance. J'ai identifié le problème. Dans le code suivant :

Private Sub UserForm_Initialize()
'
Dim x%, iNb%, sCol$
'
'Récupération des Données
ComboBox1.RowSource = "Menu!A2:A3"
ComboBox2.RowSource = "Menu!B2:B3"
'
With Worksheets("Enfant")
    For x = 3 To 42
        sCol = Split(.Columns(x + 20).Address(ColumnAbsolute:=False), ":")(1)
        iNb = WorksheetFunction.CountIf(.Range(sCol & "3:" & sCol & .Range(sCol & .Rows.Count).End(xlUp).Row), "X")
        Me.Controls("CheckBox" & x).Enabled = IIf(iNb >= .Range(sCol & 3).Value, False, True)
        Me.Controls("CheckBox" & x).Value = False
        Me.Controls("lNb" & x).Caption = CStr(.Range(sCol & 3).Value - iNb)
    Next
End With
'
End Sub

Avec ce code cela fonctionne, le problème est que si je met 43 à la place de 42 cela ne fonctionne plus.
Cela correspond a des CheckBox qui vont de 3 à 110

 

[fanch55]

Bonsoir,
A priori, la checkbox43 serait manquante, ou sinon tout dépend de l'endroit où se trouve l'erreur.
Pouvez-vous préciser la ligne sur laquelle l'erreur survient ?
Ou mieux, si vous avez un fichier exemple ...