NB.SI(couleur)

Function NbreCellulesCouleur(Plage As Range, Couleur As Byte) As Long    
'Compter le nombre de cellules d'une couleur donnée dans une plage donnée    
'Plage: plage de cellules à inspecter    
'Couleur: valeur de la couleur cherchée    

Application.Volatile    

Dim Cellule As Range    

For Each Cellule In Plage    
    If Cellule.Interior.ColorIndex = Couleur And Not IsEmpty(Cellule) Then    
        NbreCellulesCouleur = NbreCellulesCouleur + 1    
    End If    
Next Cellule    

End Function

Private Sub CommandButton2_Click()   
dim i as long
  For i = 1 To 56   
    Range("A" & i).Value = i   
    Range("A" & i).Interior.ColorIndex = i   
  Next i   
End Sub