toal cellules colorees

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