Bonjour,
sur la page code de l'onglet Cartouche
Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("A10:A26"))
If Not isect Is Nothing Then
cl = Application.Match(Target.Value, Rows(2), 0)
Cells(3, cl).Value = Cells(3, cl).Value + 1
End If
End Sub
à tester en faisant varier les données de plage "A10:A26"