Function CompteCouleurFondRef(champ As Range, couleurFond As Range)
Application.Volatile
Dim coul As Long, c As Range
coul = couleurFond.Interior.Color
For Each c In champ
If c.Interior.Color = coul Then _
If c.Address = c.MergeArea(1).Address Then _
CompteCouleurFondRef = CompteCouleurFondRef + 1
Next
End Function