Bonjour,
Ceci:
Sub Couleur()
Dim DerLig As Long, i As Long
Application.ScreenUpdating = False
DerLig = Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To DerLig
If Cells(i, "B").Interior.Color <> RGB(102, 102, 153) Then
If Cells(i, "B") <> Cells(i - 1, "B") Then
Cells(i, "C").Interior.Color = RGB(255, 255, 0)
Else
Cells(i, "C").Interior.Color = RGB(255, 0, 0)
End If
End If
Next i
End Sub
Cdlt