Function CelFondByColor(PlageEntree As Range)
Dim TempSum As Integer
Application.Volatile
MyColorIndex = 6
TempSum = 0
For Each Cell In PlageEntree
If Cell.Interior.ColorIndex = MyColorIndex Then TempSum = TempSum + 1
Next Cell
Set Cell = Nothing
CelFondByColor = TempSum
End Function