Sub Compteur2_QuandChangement()
Dim c As Range, t, sens%, i As Variant
Set c = [E5]
t = [liste]
With ActiveSheet.DrawingObjects("Compteur 2")
sens = .Value
.Value = 1 'RAZ
End With
i = Application.Match(c, t, 0)
If IsError(i) Then i = 0
i = i + IIf(sens, -1, 1)
If i < 1 Then i = UBound(t)
If i > UBound(t) Then i = 1
c = t(i, 1)
End Sub