Ce code compte le nombre de cellule ayant la même couleur et par couleur
sur la selection, Cela devrait t'aider.
Ce n'est peut être pas trop clair, mais poses des questions!
Sub coul()
ReDim tablecouleur(1, 1)
For Each i In Selection
c = i.Interior.ColorIndex
'test si couleur existe"
flag = 0
For n = 0 To UBound(tablecouleur, 2)
If c = tablecouleur(1, n) Then
'Si elle existe ont incrémente les compteurs
flag = 1
tablecouleur(0, n) = tablecouleur(0, n) + 1
End If
Next
'Si flag= 0 elle n'existe pas et ont augmente la taille de la table
If flag = 0 Then
ReDim Preserve tablecouleur(1, UBound(tablecouleur, 2) + 1)
tablecouleur(1, UBound(tablecouleur, 2)) = c
tablecouleur(0, UBound(tablecouleur, 2)) = 1
End If
Next
For n = 2 To UBound(tablecouleur, 2)
MsgBox tablecouleur(0, n) & " / " & tablecouleur(1, n)
Next
End Sub