Détection de couleur

 Sub Colorie()
'Macro par Dan pour Alouette42 le 16/11/06
Dim derlig As Variant, i As Variant
derlig = Range("A65536").End(xlUp).Row
For i = derlig To 2 Step -1 'colorie jusque la ligne 2 incluse
If Range("C" & i).Interior.ColorIndex = 3 And Range("D" & i).Interior.ColorIndex = 3 Then Range("A" & i).Interior.ColorIndex = 3
If Range("C" & i).Interior.ColorIndex = 50 And Range("D" & i).Interior.ColorIndex = 50 Then Range("A" & i).Interior.ColorIndex = 50
Next i
End Sub