Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("J20:J" & Range("J65536").End(xlUp).Row), Target) Is Nothing Then
Range(Target.Offset(, -8).Address & ":" & Target.Offset(, 1).Address).Interior.ColorIndex = IIf(Target = "à régler", 6, xlNone)
End If
End Sub