Ton probleme en fait, c'est que tu ne sais pas à quel numero correspond ta couleur.
Rajoute la ligne :
MsgBox Cells(i, j).Interior.ColorIndex
dans la fonction comme ci-dessous :
Sub Compte_Couleur()
Dim i, Compteur, j
k = 100
i = 1
Do Until IsEmpty(ActiveCell = True)
Compteur = 0
For j = 1 To 10
If Cells(i, j).Interior.ColorIndex = 3 Then Compteur = Compteur + 1
MsgBox Cells(i, j).Interior.ColorIndex
Next j
Cells(i, 12) = Compteur
i = i + 1
If i > k Then GoTo fin
Loop
fin:
End Sub
Comme ça, pour chacune des cellules à balayer, tu récupèrera le n° correspondant à la couleur.
Après, tu n'auras plus qu'à mettre cette valeur à la place de 3
Tiens-moi au courrant par le forum.