Option Explicit
Sub Nb_Coul()
Dim CouleurRef As Variant
Dim PlageLigneCouleur As Range, Cel As Range
Dim NbLigneCouleur&, i&, j&, k&
ActiveSheet.UsedRange.Rows("4:" & ActiveSheet.UsedRange.Rows.Count) = ""
Set PlageLigneCouleur = Range("A3:A" & Rows.Count).SpecialCells(xlCellTypeBlanks)
For Each Cel In PlageLigneCouleur
If Cel.Interior.Color <> 16777215 Then NbLigneCouleur = Cel.Row
Next
For k = 4 To NbLigneCouleur
For j = 7 To 10 'Les colonnes G à J
CouleurRef = Cells(3, j).Interior.Color
For i = 1 To 6 'La couleur à tester
If CouleurRef = Cells(k, i).Interior.Color Then 'La couleur match alors on la compte
Cells(k, j).Value = Cells(k, j).Value + 1
End If
Next i
Next j
Next k
End Sub
Sub CommandButton1_Click()
Nb_Coul
End Sub