Re Stéphane
Si tu ouvre le fichier tu fait Alt-F11 te voila en VBA
Clique sur la Feuil1 un code devrait apparaitre comme ceci
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim colonne As Byte, rang As Byte, a As Integer
Dim vert As Integer, jaune As Integer, rouge As Integer
vert = 0
jaune = 0
rouge = 0
For colonne = 2 To 4
For rang = 7 To 14
a = Cells(rang, colonne).Font.ColorIndex
'Compte le nombre de cellules d'une couleur
If a = 4 Then vert = vert + 1
If a = 6 Then jaune = jaune + 1
If a = 3 Then rouge = rouge + 1
Next rang
Cells(15, colonne).Value = vert
Cells(16, colonne).Value = jaune
Cells(17, colonne).Value = rouge
vert = 0: jaune = 0: rouge = 0
Next colonne
End Sub
Mytå