Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableu des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim T As Integer 'déclare la variable T (Total)
Dim V As Integer 'déclare la variable V (Valeur)
Dim MV As Integer 'déclare la variable VM (Valeur max)
Set O = Worksheets("Sheet1") 'définit l'onglet O
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 1) 'boucle sur toutes es lignes I du tableau des valeurs TV
If Abs(CDbl(TV(I, 2)) - CDbl(TV(I, 1))) >= 3 Then 'condition : si la valeur absolue de la différence ente des deux valeurs de la ligne est supérieure ou égale à 3
T = T + 1 'incrémente T
If T > 3 Then V = T: If V > VM Then VM = V 'si T est supérieur à 3 définit la valeur V, garde la plus grande valeur de V dans VM
Else 'sinon
T = 0 'réinitialise T
End If 'fin de la condition
Next I 'prochaine ligne de la boucle
MsgBox VM 'affiche VM dans un message
End Sub