Sub Worksheet_BeforeRightClick(ByVal Cible As Range, Cancel As Boolean)
If MemInh = False Then Exit Sub
Application.ScreenUpdating = False
Set MemCible = Cible ' Mémorise Cible
With ListBox1
If .Value <> "" Then Cible.Value = ""
.LinkedCell = Cible.Address ' Indique la cellule d'application à la liste
.Top = Cible.Top + 20 ' Positionne la liste, la désélectionne et la rend visible
.Left = Cible.Left + 50
.ListIndex = -1 ' Sélectionne dernier choix (vide) de la liste car Pb. avec .Listindex = -1
.Visible = True
End With
Cancel = True
Application.ScreenUpdating = True
End Sub