Compter cellules colorées par mise en forme conditionnelle

Bjr,

J'utilise cette macro pour compter les cellules d'une même couleur.
Par contre elle ne marche pas qd les cellules sont colorées par une mise en forme conditionnelle... Ce qui est assez gênant!
Qq'1 aurait-il une solution?

Merci par avance

Function SumColor(rColor As Range, rSumRange As Range)



''''''''''''''''''''''''''''''''''''''

'Written by Ozgrid Business Applications

'www.ozgrid.com



'Sums cells based on a specified fill color.

'''''''''''''''''''''''''''''''''''''''

Dim rCell As Range

Dim iCol As Integer

Dim vResult



iCol = rColor.Interior.ColorIndex



For Each rCell In rSumRange

If rCell.Interior.ColorIndex = iCol Then

vResult = WorksheetFunction.Sum(rCell) + vResult

End If

Next rCell



SumColor = vResult

End Function