Re : Cancel = True ne fonctionne pas!
Et voilà....merci
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'Cancel = True
ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, 1).Value - 1
If ActiveCell.Offset(0, 1).Value < 1 Then
ActiveCell.Offset(0, 1).ClearContents
End If
ActiveCell.Offset(1, 0).Select
Cancel = True
End Sub