XL 2010 VBA : clic droit sur SelectionChange

Private Sub Worksheet_BeforeRightClick(ByVal R As Range, Cancel As Boolean)
If Not Intersect(R, Range("A2:A100")) Is Nothing Then
Cancel = True
R.Offset(0, 2) = "x"
End If
End Sub

Dim arret As Boolean 'mémorise la variable

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
arret = False
If Target.Count > 1 Or Intersect(Target, Range("C4:C16")) Is Nothing Then Exit Sub
Application.OnTime 1, Me.CodeName & ".Action" 'reporte l'exécution
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
arret = True
If Intersect(Target, Range("C4:C16")) Is Nothing Then Exit Sub
Cancel = True
'---suite---
End Sub

Private Sub Action()
If arret Then arret = False: Exit Sub
ActiveCell.Offset(, 1) = "X"
End Sub

Option Explicit
Private Cible As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Set Cible = Target
   Application.OnTime Now, Me.CodeName & ".Clic"
   End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   Set Cible = Nothing
   Cancel = True
   End Sub
Public Sub Clic()
   If Cible Is Nothing Then Exit Sub
   If Not Application.Intersect(Cible, Range("C4:C16")) Is Nothing Then
      Cible.Offset(0, 1) = "X"
      End If
   Set Cible = Nothing
   End Sub