Function ColorCountIf(SearchArea As Object, BgColor As Range, ZoneAdd As Byte) As Double
Dim MaCoul As Variant
Dim cell As Range
Application.Volatile True
ColorCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each cell In SearchArea
If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + cell.Offset(0, ZoneAdd)
Next cell
End Function