compter des cellules colorisées par une mise en forme conditionnelle

[gaetanheudes]

Je voudrais compter des cellules, sous excel 2007, colorisées par une mise en forme conditionnelle.
J'ai pris sur le site une fonction sous VBA qui marche très bien quand il n'y pas de mise en forme conditionnelle. Par contre, quand elle est active, excel ne reconnait pas les couleurs ?
quelqu'un a-t-il la solution ?

Je joins ma fonction sous VBA

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 = MaCoul Then ColorCountIf = ColorCountIf + 1
Next cell

End Function