ecart maximum

Sub test()
Dim compteur1 As Integer
Dim compteur2 As Integer
Dim Cellule As Variant
For i = 1 To 100 'pour aller de la ligne 1 à la ligne 100
    Cellule = Range("A" & i).Value ' Affecte à la variable cellule la valeur de la cellule en cours
        If Cellule <> 1 Then 'si valeur<>1
            Do While Cellule = 0 And Range("A" & i).Row <= 100 'tant que les valeurs sont égales à zéro et que la ligne est <=100
                compteur1 = compteur1 + 1 'le compteur est égal au compteur précédent+1
                i = i + 1 'et on passe à la ligne du dessous
                Cellule = Range("A" & i).Value ' dont on prend la valeur
            Loop
                If compteur2 > compteur1 Then 'on prend le plus grand compteur entre compteur1 qui évolue à chaque boucle, et compteur2
                    compteur2 = compteur2
                    compteur1 = 0
                Else
                    compteur2 = compteur1
                    compteur1 = 0
                End If
        End If
Next i
Range("B1").Value = compteur2 'compteur2 est tjours le plus grand, on le place en B1
End Sub