@+Thierry

faut faire comme ceci (punaise la touche entré m'a envoyé le message !! lol)

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Adresse As String
Adresse = Target.Address
Select Case Adresse
Case "$D$2": ListeDeroulante1.Show: Cancel = True
Case "$D$3": ListeDeroulante2.Show: Cancel = True
Case "$D$4": ListeDeroulante3.Show: Cancel = True
Case "$D$5": ListeDeroulante4.Show: Cancel = True
Case "$D$6": ListeDeroulante4.Show: Cancel = True
Case "$D$7": ListeDeroulante6.Show: Cancel = True
Case "$D$8": ListeDeroulante7.Show: Cancel = True
Case "$D$9": ListeDeroulante8.Show: Cancel = True
Case "$D$10": ListeDeroulante9.Show: Cancel = True
Case "$D$11": ListeDeroulante10.Show: Cancel = True
End Select
End Sub

Tu peux faire toutes les cellules comme ça !! (Mort de rire)

J'ai une petite question à mon tour Arnaud... pourquoi ne pas utiliser les "Listes de Validation" si simple d'emploi et autrement plus pratique et lègeres à gérer ???

bonne soirée
@+Thierry