Bonjour,
Ci-dessous le code :
Sub Mise_En_Couleur()
Range("A2").Select
Do Until ActiveCell = ""
If ActiveCell = "football" And ActiveCell.Offset(0, 1) <> "remplaçant" Then
Range(ActiveCell, ActiveCell.Offset(0, 2)).Font.ColorIndex = 5
ElseIf ActiveCell = "football" And ActiveCell.Offset(0, 1) = "remplaçant" Then
Range(ActiveCell, ActiveCell.Offset(0, 2)).Font.ColorIndex = 4
Else
Range(ActiveCell, ActiveCell.Offset(0, 2)).Font.ColorIndex = 27
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Bon courage.