Rebonjour David
une simplification de la macro .
Private Sub Worksheet_Change(ByVal Target As Range)
For Each C In Range("F1", "F6")
Select Case C
Case Is = "droite"
C.EntireRow.Range("A1:I1").Interior.ColorIndex = 7
Case Is = "gauche"
C.EntireRow.Range("A1:I1").Interior.ColorIndex = 4
End Select
For Each K In Range("C1", "C6")
Select Case K
Case Is = "jaune"
K.EntireRow.Range("A1", "I1").Font.ColorIndex = 6
Case Is = "bleue"
K.EntireRow.Range("A1", "I1").Font.ColorIndex = 5
Case Is = "rouge"
K.EntireRow.Range("A1", "I1").Font.ColorIndex = 3
End Select
Next K
Next C
End Sub
A+
Bernard