Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal c As Range)
If c.Column > 1 Or c.Count > 1 Then Exit Sub
If c.Value = "Annulé" Then
c.Resize(, 22).Interior.ColorIndex = 15
Else
c.Resize(, 22).Interior.ColorIndex = xlNone
End If
End Sub