Microsoft 365 compter des cellules selon critères + écrire le résultat

Sub test()
  Dim C As Range
  For Each C In Range("A2", Cells(Rows.Count, 1).End(xlUp))
    Cells(C.Row, 12) = 0
    For i = 2 To 11
      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

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