voici un code macro qui te permet de compter les cellules de couleur rose
sub comptercouleurs ()
Dim CompterCellules As Integer
Dim Cellules As Range
'compter rose
Sheets("feuil1").Select
Range("A:A").select
For Each Cellules In Selection
If Cellules.Interior.ColorIndex = 38 Then 'n°38 = rose
CompterCellules = CompterCellules + 1
End If
Next Cellules
Sheets("feuil2").Activate
[c2] = CompterCellules
End sub