Function CellulesEnCouleur(Plage As Range)
Dim TotalCellules As Integer
Dim Cellule As Range
For Each Cellule In Plage
If Cellule.Interior.ColorIndex <> -4142 Then
TotalCellules = TotalCellules + 1
End If
Next Cellule
CellulesEnCouleur = TotalCellules
End Function