Calcul du même nombre à la suite

Sub majColonnes()
    Dim col As Range, c As Range
    Dim v As Byte, vold As Byte
    Dim nb(0 To 1) As Byte
    Dim max(0 To 1) As Byte
    max(0) = 0: max(1) = 0
    For Each col In ActiveSheet.UsedRange.Columns
        For Each c In col.Cells
            If c.Value = "" Then Exit For
            If c.Row = 1 Then
                vold = c.Offset(1, 0).Value
            Else
                v = c.Value
                If v = vold Then
                    nb(v) = nb(v) + 1
                Else
                    nb(v) = 1
                    If nb(vold) > max(vold) Then max(vold) = nb(vold)
                    nb(vold) = 0
                End If
                vold = v
            End If
        Next c
    col.Cells(1) = "max. 0 : " & max(0) & vbCrLf & "max. 1 : " & max(1)
    Next col
End Sub

=MAX(FREQUENCE(SI(A2:A149=1;LIGNE(A2:A149));SI(A2:A149=0;LIGNE(A2:A149))))