nombre de jours consécutifs

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i As Byte
Dim j As Integer
Dim cpt As Byte

For i = 1 To Sheets.Count
    With Sheets(i)
        For j = 1 To .Range("iv2").End(xlDown).Column
            If .Cells(2, j) = "ACT" Or .Cells(2, j) = "A" Then
                cpt = cpt + 1
                If cpt > 30 Then
                    MsgBox "STOP, le nombre consécutif de ACT et de A est strictement supérieur à 30.", _
                    vbCritical, "PAS BON DU TOUT"
                    Exit Sub
                End If
            End If
        Next
    End With
Next i
         
End Sub