Sub test()
Dim C As Range
'Boucle sur chaque cellule remplie de la colonne A (à partir de A2)
For Each C In Range("A2", Cells(Rows.Count, 1).End(xlUp))
Cells(C.Row, 12) = 0
'Sur la liggne de la cellule en courss de traitement,
'boucle sur les colonnes B à K (2 à 11)
For i = 2 To 11
'"65280" est la nuance de vert utilisée
'Pour chaque cellule, si elle est verte, on additionne 1 en colonne L
If Cells(C.Row, i).Interior.Color = 65280 Then
Cells(C.Row, 12) = Cells(C.Row, 12) + 1
End If
Next i
Next C
End Sub