Function TousCoul(champ As Range, coul)
For Each c In champ
t = t + IIf(c.Interior.ColorIndex = coul, 1, 0)
Next c
TousCoul = (t = champ.Count)
End Function
Function UnCoul(champ As Range, coul)
For Each c In champ
t = t + IIf(c.Interior.ColorIndex = coul, 1, 0)
Next c
UnCoul = (t >= 1)
End Function