Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' Double-click
If Not Application.Intersect(Target, Range("C3:L68")) Is Nothing Then
ActiveCell.Value = ActiveCell + 1
Cancel = True
Else
Exit Sub
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) ' Click-droit
If Not Application.Intersect(Target, Range("C3:L68")) Is Nothing Then
ActiveCell.Value = ActiveCell - 1
Cancel = True
Else
Exit Sub
End If
End Sub