Option Explicit
Sub couleurs()
Dim i As Long, j As Long ' déclaration des variables
Application.ScreenUpdating = False ' écran figé
Range("CM8:CO12") = "" ' Cellules supprimées
Range("CM8:CO12").Interior.ColorIndex = xlNone ' Cellules supprimées couleurs
For i = 8 To 12 ' boucle i pour les lignes de 8 à 12
For j = 2 To 90 ' boucle j pour les colonnes de 2 à 90
If Cells(i, j).Interior.ColorIndex = 43 Then ' si la cellule (ligne / colonne ) est verte alors
Cells(i, 91) = Cells(i, 91) + 1 ' ajout du nombre en cellule ( ligne / colonne 91 )+1
Cells(i, 91).Interior.ColorIndex = 43 ' coloriage de la cellule concernée en vert
ElseIf Cells(i, j).Interior.ColorIndex = 46 Then ' si la cellule (ligne / colonne ) est orange alors
Cells(i, 92) = Cells(i, 92) + 1 ' ajout du nombre en cellule ( ligne / colonne 92 )+1
Cells(i, 92).Interior.ColorIndex = 46 ' coloriage de la cellule concernée en orange
ElseIf Cells(i, j).Interior.ColorIndex = 47 Then ' si la cellule (ligne / colonne ) est violet alors
Cells(i, 93) = Cells(i, 93) + 2 ' ajout du nombre en cellule ( ligne / colonne 93 )+2
Cells(i, 93).Interior.ColorIndex = 47 ' coloriage de la cellule concernée en violet
End If ' fin si
Next j ' fin boucle j
Next i ' fin boucle i
Application.ScreenUpdating = True ' fin écran figé
End Sub