Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim P As Range, Q As Range, c As Range
Set P = [A7:C20]
If Intersect(Target, P) Is Nothing Then Exit Sub
Cancel = True
Set Q = [E5:G61]
Q.Columns(3).ClearContents 'RAZ
For Each c In Q.Columns(1).Cells
c(1, 2).Interior.ColorIndex = c
Next
For Each c In Intersect(Target.EntireColumn, P)
With Q(Application.Match(c.Font.ColorIndex, Q.Columns(1), 0), 3)
.Value = .Value + 1 'comptage
End With
Next
End Sub