vba test : erreur de compteur

Sub ForNextImbriqué_bis()
Dim Col As Long
Dim Lign As Long
Dim Cnt As Integer
Dim x As Integer
x = 0
For Col = 1 To 10
    For Lign = 1 To 10
        For Cnt = 1 To 10
            x = x + Cnt
            Cells(Lign, Col) = x
        Next Cnt
    Next Lign
Next Col
End Sub

Sub CompteGras_bis()
Dim Classeur As Workbook
Dim Feuille As Worksheet
Dim Cellule As Range
Dim compte As Long
    For Each Classeur In Workbooks
        For Each Feuille In Classeur.Worksheets
            For Each Cellule In Feuille.UsedRange
            If Len(Cellule) Then ' petit ajout pour ne tester que les cellules non-vides
                If Cellule.Font.Bold Then
                compte = compte + 1
                End If
                End If
            Next Cellule
        Next Feuille
    Next Classeur
MsgBox compte & " Cellule(s) en caractères gras trouvée(s)", vbInformation, "Résultats"
End Sub

Sub Incrementation()
Dim i As Long

    For i = 2 To 11
        Sheets("Feuil1").Cells(i, 1) = i - 1
    Next i
End Sub

Private Sub Workbook_Open()
Dim Cnt As Long

    With Sheets("Feuil1")
        .Range("z1") = .Range("z1") + 1
        Cnt = .Range("z1")
    End With

    MsgBox "Ce classeur a été ouvert " & Cnt & " fois."
End Sub

Sub Cellules_Gras()
Dim Sh As Worksheet, Classeur As Workbook, cel As Range, compte As Long

    For Each Classeur In Workbooks
        For Each Sh In Classeur.Worksheets
            For Each cel In Sh.UsedRange
                If cel.Font.Bold = True Then
                    compte = compte + 1
                End If
            Next cel
        Next Sh
    Next Classeur
    Sheets("Feuil1").Range("b2") = compte
End Sub

        For Cnt = 1 To 10
            x = x + Cnt