Case à cocher et boucle sur les mois

Private Sub cmdValider_Click()
Dim reponse As String
Dim i As Byte 'déclare la variable i (Index)
 
If ComboBoxNom.Value = "" Then 'ComboBox5 = Mois
    MsgBox "Saisir un nom", , "Attention :"
    Exit Sub
End If
 
i = Sheets(TheWorkSheet).Index 'définit l'index de l'onglet renseigné
For Each WS In Sheets 'boucle sur tous les onglets du classeur
    'si la case est cochée et l'index de l'onglet est inférieur à i, va à l'onglet suivant (via l'étiquette "suite")
    If Me.CheckBox1.Value = True And WS.Index < i Then GoTo suite
    'condition 1 : si le nom de l'onglet n'est ni "Menu" ni "Recap"
    If Not WS.Name = "Menu" And Not WS.Name = "Recap" Then
        With WS 'prend en compte l'onglet
            Set cel = .Rows(10).Find(ComboBoxNom) 'définit cel (Recherche le nom dans la ligne 10 de l'onglet
            If Not cel Is Nothing Then 'condition 2 : si le nom existe
                col = cel.Column ' définit la colone col
                .Cells(11, col).Value = Me.TextBox1.Value 'place la donnée de la TextBox1 dans la colonne ligne 11
                .Cells(12, col).Value = Me.TextBox2.Value 'place la donnée de la TextBox2 dans la colonne ligne 12
                .Cells(13, col).Value = Me.TextBox3.Value 'place la donnée de la TextBox3 dans la colonne ligne 13
            End If 'fin de la condition 2
        End With 'fin de la prise en comptye de l'onglet
    End If 'fin de la condition 1
suite: 'étiquette
Next WS

reponse = MsgBox("Voulez-vous saisir une autre fiche?", vbYesNo, "Question :")
If reponse = vbYes Then
    Call EffaceTout
    Me.ComboBoxMois.SetFocus
Else
    Unload Me
End If
End Sub