Option Explicit
Function Couleurs(Plage As Range, IndexCouleur As Integer) As Long 'Ti sur VeriTi
Dim Cel As Range
For Each Cel In Plage.Cells
If Cel.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
Next Cel
End Function
Function CompteCouleurFond2(champ As Range)
Application.Volatile
couleurFond = Range(Application.Caller.Address).Interior.Color
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.Color = couleurFond Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function