Sub Macro1()
Dim x As Byte, y As Byte, z As Byte, v As Byte 'déclare les variables x, y, z et v
For x = 1 To 60 'boucle sur soixante lignes (de 10 à 69)
For y = 35 To 63 'boucle sur les 29 couleurs (Tableau de références de AI9 à BK9)
v = 0 'définit la variable v
For z = 4 To 34 'boucle sur les 31 cellules (de la colonne D à la colonne AH)
'condition: si la cellule à la même couleur de motif que celle mentionné
'dans le tableau de référence, alors redéfinit la variable v : v = v+1
If Cells(x + 9, z).Interior.ColorIndex = CInt(Right(Cells(9, y), Len(Cells(9, y).Value) - 1)) Then v = v + 1
Next z 'prochaine céllule
'affiche le nombre dans le tableu de références
If v <> 0 Then Cells(x + 9, y).Value = v
Next y 'prochaine couleur de référence
Next x 'prochaine ligne
End Sub