Bonjour,
Hors du VBA, point de salut dans ce cas !
je te refile un code que j'ai honteusement pompé je ne sais ou (je suis nul en vba) a mettre dans la page vba de la feuille concernée
-----------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("s5")) Is Nothing Then
Target.Offset(0, 1) = ""
End If
Application.EnableEvents = True
End Sub
-----------------------------------------------
si tu changes la valeur de s5 avec ta liste, tu effaces la cellule d'a coté (Target.Offset(0, 1)
Crdlmt