@+Thierry

RE Arnaud,

Euf je pense que tu es en train (toi aussi) de monter une usine à gaz...

Tu ne vas pas nous faire un Userform par cellule au moins ! (lol)

Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$D$2" Then
Cancel = True
ListeDeroulante1.Show
End If
If Target.Address = "$D$3" Then
Cancel = True
ListeDeroulante2.Show
End If
End Sub

Maintenant si tu as plus de deux ou trois cellules vaut mieux changer de méthode avec Select Case...