formule pour compter le nombre de cases d'une même couleur??

    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