Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("x3:x" & Range("x65536").End(xlUp).Row)) Is Nothing Then
'facultatif... afin de connaître, en colonne AJ, la date et l'heure du dernier mail adressé à x
Target.Offset(, 12) = Now
'afin de que la macro "Macro_pour_envoyer_mail" puisse agir
Target.Offset(, 11).Name = "Mail_destinataire"
'placer ici le véritable nom de la macro d'envoi
Call Macro_pour_envoyer_mail
End If
End Sub