Excel: compter les changements d'état.

Sub essai()

Dim x As Integer
Dim y As Integer
Dim total_ligne As Integer

For y = 2 To 3
For x = 1 To 6

If Cells(y, x) <> Cells(y - 1, x) Then total_ligne = total_ligne + 1

Next x
Cells(y, 7) = total_ligne
total_ligne = 0
Next y

End Sub

Sub test()
Dim Col As Integer
Dim Lig As Long
Dim X As Long
Dim Flg As Boolean
Dim Tab_V()
ReDim Tab_V(1 To 3, 0)
For Lig = 1 To [A65536].End(xlUp).Row - 1
For Col = 1 To [IV1].End(xlToLeft).Column
Flg = True
For X = 1 To UBound(Tab_V, 2)
If Tab_V(1, X) = Cells(Lig, Col) And Tab_V(2, X) = Cells(Lig + 1, Col) Then
Tab_V(3, X) = Tab_V(3, X) + 1
Flg = False
Exit For
End If
Next X
If Flg Then
ReDim Preserve Tab_V(1 To 3, 0 To UBound(Tab_V, 2) + 1)
Tab_V(1, UBound(Tab_V, 2)) = Cells(Lig, Col)
Tab_V(2, UBound(Tab_V, 2)) = Cells(Lig + 1, Col)
Tab_V(3, UBound(Tab_V, 2)) = 1
End If
Next Col
Next Lig
For X = 1 To UBound(Tab_V, 2)
Cells(X + 1, Col + 2) = Tab_V(1, X) & " à " & Tab_V(2, X)
Cells(X + 1, Col + 3) = Tab_V(3, X) & " fois"
Next X
End Sub