Sub CompteurCouleurs()
Dim nbVert As Integer
Dim nbRouge As Integer
Dim x As Integer
nbVert = 0
nbRouge = 0
For x = 1 To 100 'une boucle qui part de la 1ère cellule à la 100ème
Cells(x, 5).Select 'colonne E ligne x avec x étant variable donc - correspond à ton équipe A par exemple
If Selection.Interior.ColorIndex = 4 Then
'si l'intérieur de ta cellule est vert alors on incrémente le compteur vert
nbVert = nbVert + 1
ElseIf Selection.Interior.ColorIndex = 3 Then
'si l'intérieur de ta cellule est rouge alors on incrémente le compteur rouge
nbRouge = nbRouge + 1
End If
Next x
'ensuite tu les affiches par exemple
MsgBox "vert: " & nbVert
MsgBox "rouge: " & nbRouge
End Sub