Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
If c.Column = 21 Then c.Offset(, -17).Interior.Color = 10213316
If c.Column = 24 Then Select Case c.Value: Case "En cours": c.Offset(, -19).Interior.ColorIndex = 6: Case Else: c.Offset(, -19).Interior.Color = 10213316: End Select
If c.Column = 29 Then Select Case c.Value: Case "En cours": c.Offset(, -23).Interior.ColorIndex = 6: _
Case Else: c.Offset(, -23).Interior.Color = 10213316: End Select
If c.Column = 34 Then Select Case c.Value: Case "En cours de vérification": c.Offset(, -27).Interior.ColorIndex = 6: _
Case Else: c.Offset(, -27).Interior.Color = 10213316: End Select
End Sub