Function ColorFontCountIf(SearchArea As Object, BgColor As Range) As Integer
Application.Volatile True
ColorFontCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each cell In SearchArea
If cell.Font.ColorIndex = MaCoul Then ColorFontCountIf = ColorFontCountIf + 1
Next cell
End Function