Bonjour
Code à mettre dans le module de ta feuille et adapter
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C6:C7")) Is Nothing Then
Cells(Target.Row, 4).Value = Cells(Target.Row, 4).Value + 1
End If
End Sub