1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

Sub CompterCellules()
Dim CompterCellules As Integer
Dim Cellules As Range
'compter rose saumon 38
        For Each Cellules In Selection
        If Cellules.Interior.ColorIndex = 38 Then ' modifiez le code couleur 38 par celui de votre choix
            CompterCellules = CompterCellules + 1
            End If
        Next Cellules
MsgBox CompterCellules & " cellules de couleurs rose", vbInformation
 
'compter bleu = 37
'compter rose pale = 40
'compter bleu ciel = 34
'compter vert = 4
'compter gris = 15
'compter jaune = 36
'compter jaune foncé = 6
End Sub