Sub compteurCellulesColorees()
' déclaration d'un compteur
Dim compteur As Integer
' déclaration d'une plage; exemple A1 <-> G18
Set plage = Sheets(1).Range("A1:G18")
' initialisation du compteur
compteur = 0
' boucle d'analyse de chaque cellule de la plage
For Each cel In plage.Cells
' si la cellule est colorée alors on incrémente le compteur de 1
If cel.Interior.ColorIndex <> xlNone Then compteur = compteur + 1
Next cel
' affichage du nombre de cellules colorées
MsgBox compteur
End Sub