Comptage de jours consécutifs

Option Explicit

Private Sub CommandButton1_Click()
    Dim Lig As Long, LigDeb As Long, LigFin As Long
    Dim Col As Long, ColDeb As Long, ColFin As Long
    Dim CellVide As Integer

    LigDeb = 3
    LigFin = 20

    For Lig = LigDeb To LigFin
        ColDeb = 3
        ColFin = 200
        CellVide = 0

        For Col = ColDeb To ColFin
            If Cells(Lig, Col).Value = "x" Then
                CellVide = CellVide + 1
                If Cells(Lig, Col + 1).Value = "x" And Cells(Lig, Col + 12).Value = "x" Then
                    Cells(Lig, 2).Interior.ColorIndex = 4
                    Cells(Lig, 1) = "Bon"
                    GoTo Suivant
                Else
                    Cells(Lig, 2).Interior.ColorIndex = 40
                    Cells(Lig, 1) = "Pas Bon"
                    
                End If
            End If
        Next Col
Suivant:
    Next Lig
End Sub