Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Plage As Range
Dim Lig As Single
' Si la saisie est faite sur les cellules la colonne 8 (H)
For Each c In Target
If c.Column = 8 And c.Value <> "" Then
Lig = c.Row
Set Plage = Range(Cells(Lig, "A"), Cells(Lig, "D"))
Plage.Interior.ColorIndex = IIf(WorksheetFunction.CountA(Plage) = 4, 33, xlNone)
End If
Next
End Sub