Comptage de données identiques et consécutives

Bonjour,

Je voudrais dans l'exemple ci-joint compter dans la colonne 1 les données qui sont identiques et consécutives.

Voir le fichier pour le résultat attendu.

Merci d'avance pour vos réponses, bien cordialement Eric.

Sub toto()
    Dim i As Integer, compte As Integer
    With Sheets("Feuil1")
        For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
            If .Cells(i, 1) = .Cells(i + 1, 1) Then
                compte = compte + 1
            Else
                .Cells(i, 2) = compte + 1
                compte = 0
            End If
        Next i
    End With
End Sub

Merci EngueEngue pour cette réponse rapide et efficace.

Salutations Eric.