Sub test_1()
[D4:E4] = Array(False, True) 'pour test
plan_2 4, Range("Q5")
End Sub
Sub test_2()
[D4:E4] = Array(True, False) 'pour test
plan_2 4, Range("S5")
End Sub
Sub test_3()
[D4:E4] = Array(False, True) 'pour test
plan_2 4, Range("I5")
End Sub
Private Sub plan_2(ligne As Long, rng As Range)
Dim flag As Boolean
flag = Cells(ligne, 4) = True And Cells(ligne, 5) = False
Range(Cells(ligne, 6), Cells(ligne, rng.Column - 1)).Interior.Color = IIf(flag, xlNone, 65535)
End Sub