Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range, t$
If Target.Address <> "$D$15" Then Exit Sub
For Each cel In [Liste]
If cel <> Target Then t = t & "," & cel
Next
t = Mid(t, 2)
With Target.Offset(1).Validation
.Delete
If Target <> "" Then .Add xlValidateList, Formula1:=t
End With
End Sub