Transfert de 2007 vers 2010 macro ne fonctionne plus.

Suite au transfert de mon fichier excel 2007 vers 2010, la formule ci dessous ne fonctionne plus, merci pour votre aide

contenu de ma cellule =(bgcolorcountif($D4:$AE4;bgcolor($AG$2))/2)


ci dessous, la description de la fonction dans le module standard pour bgcolor, et bgcolorcountif


Function bgcolorcountif(searcharea As Object, bgcolor As Integer) As Integer
Dim Cell As Range
For Each Cell In searcharea
bgcolorcountif = bgcolorcountif + Abs(Cell.Interior.ColorIndex = bgcolor)
Next Cell
End Function

Function bgcolor(ckcell As Object)
bgcolor = Abs(ckcell.Interior.ColorIndex)
End Function