Compter le temps d'occurrence d'une valeur

Option Explicit
Option Base 1
Const Col As String = "A" 'colonne à compter
Const Col_d As String = "D" 'tableau résultats
'-------------------------------------------
Sub compter_les_zeros()
Dim Derlig As Integer, Cptr As Integer, T_score
Dim T_init, Nbre As Integer
'i--------nitialisations
    Application.ScreenUpdating = False
    
    'tableau résultats comptage
    ReDim T_score(179, 2)
    For Cptr = 1 To 179
        T_score(Cptr, 1) = Cptr
        T_score(Cptr, 2) = 0
    Next
    'tableau à compter
    Derlig = Columns(Col).Find(what:="*", searchdirection:=xlPrevious).Row
    T_init = Application.Transpose(Range("A1:A" & Derlig))
    
'----------------parcours la liste 0-1
    For Cptr = 1 To UBound(T_init)
        If T_init(Cptr) = 0 Then
            Nbre = Nbre + 1
        Else
            If Nbre >= 179 Then
                T_score(179, 2) = T_score(179, 2) + 1
            Else
                T_score(Nbre, 2) = T_score(Nbre, 2) + 1
            End If
            Nbre = 0
            While T_init(Cptr + 1) = 1
                Cptr = Cptr + 1
            Wend
        End If
    Next
    
'-------------restitution
   Cells(2, Col_d).Resize(179, 2) = T_score
   
End Sub