[COLOR="DarkSlateGray"][B]Sub toto()
Dim oCel As Range, i As Long, c As Long
With Range("A1:A4")
For Each oCel In .Cells
If oCel.Value = 3 Then c = c + 1
Next oCel
End With
If c = 2 Then [B1].Interior.ColorIndex = 4 Else [B1].Interior.ColorIndex = xlNone
End Sub[/B][/COLOR]