Function ColorCountIf(SearchArea As Object, BgColor As Range) As Integer
Application.Volatile True
ColorCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each cell In SearchArea
If cell.Interior.ColorIndex [COLOR=red]<>[/COLOR] MaCoul Then ColorCountIf = ColorCountIf + 1
Next cell
End Function