Sub Macro1()
Dim nb As Byte 'déclare la variable nb (NomBre)
Dim cel As Range 'déclare la variable cel (CELlule)
For Each cel In Range("A2:A10") 'boucle sur toutes les cellules de la plage A2:A10
'si la cellule contient une couleur, incrémente nb
If cel.Interior.ColorIndex <> xlNone Then nb = nb + 1
Next cel
Range("A1").Value = nb 'place nb dans la cellule A1
End Sub