Pour chaque cellule, donner le nombre de cellules identiques successives

Sub Macro1()
Dim cel As Range 'déclare la varialbe cel (CELlule)
Dim n As Integer 'déclare la varialbe n (Nombre d'occurrences)
 
n = 1 'définit la variable n
For Each cel In Sheets("Feuil1").Range("A1:A" & Sheets("Feuil1").Cells(Application.Rows.Count, 1).End(xlUp).Row) 'boucle sur toutesles cellules éditées de la colonne A
    If cel.Offset(1, 0).Value = cel.Value Then 'condition : si la cellule en dessous a la même valeur que la cellule cel
        n = n + 1 'redéfinit la variable n
    Else 'sinon
       For x = n - 1 To 0 Step -1 'boucle 2 : sur les n-1 cellules supérieures à cel
            Cells(cel.Row - x, 1).Value = Cells(cel.Row - x, 1).Value & " " & n 'rajoutele nombre d'occurrence à la cellule
        Next x 'prochaine cellule supérieure de la boucle 2
        n = 1 'réinitialise la variable n
    End If 'fin de la condition
Next cel 'prochaine cellule de la boucle 1
End Sub

Function NBSUIV(cel As Range) As Long
Dim deb As Range, fin As Range
Application.Volatile
Set deb = cel
Set fin = cel

1 If deb.Row = 1 Then GoTo 2
Set deb = deb.Offset(-1)
If deb <> cel Then Set deb = deb.Offset(1) Else GoTo 1

2 If fin.Row = Rows.Count Then GoTo 3
Set fin = fin.Offset(1)
If fin <> cel Then Set fin = fin.Offset(-1) Else GoTo 2

3 NBSUIV = fin.Row - deb.Row + 1
End Function

=DECALER(Feuil1!$A$1;;;EQUIV("zzz";Feuil1!$A:$A)+1)

=MIN(SI((LIGNE(plage)>LIGNE())*(plage<>A1);LIGNE(plage)))-MAX((LIGNE(plage)<LIGNE())*(plage<>A1)*LIGNE(plage))-1

=INDIRECT("A1:A"&EQUIV("zzz";Feuil1!$A:$A)+1)

=SOMME(INDIRECT("C"&MAX((LIGNE(plage)<LIGNE())*(plage<>A2)*LIGNE(plage))+1&":C"&MIN(SI((LIGNE(plage)>LIGNE())*(plage<>A2);LIGNE(plage)))-1))

=SI(LIGNE()>LIGNES(plage)-1;"";.....)