Dim n As Integer 'Déclare la variable n
n = 0 'Au départ n vaut 0
For Each cell In Range("A1:I20") 'Sur toutes les cellules de A1:J20... À adapter.
If cell.Interior.ColorIndex = 5 Then 'Si la couleur = bleu (5)
n = n + 1 'On incrémente de +1 la variable n
End If 'Fin de la condition
Next cell 'Fin de la boucle
If n > 1 Then 'Si la variable n est plus grande que 1
MsgBox "Il y a " & n & " cellules de couleur" 'Au pluriel
Else 'Autrement
MsgBox "Il y a " & n & " cellule de couleur" 'Au singulier
End If 'Fin de la condition