Salut FMailys,
ainsi, comme j'ai compris..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim sMsg$
'
[D5].Validation.Delete
If Not Intersect(Target, Range("D5")) Is Nothing Then
If [D4] <> "" Then
With Worksheets("Paramètres")
For x = 2 To .Range("I" & Rows.Count).End(xlUp).Row
If .Range("I" & x).Value = [D4] Then _
sMsg = sMsg & IIf(sMsg = "", .Range("D" & x).Value, "," & .Range("D" & x).Value)
Next
If sMsg <> "" Then _
[D5].Validation.Add Type:=xlValidateList, Formula1:=sMsg
End With
End If
End If
'
End Sub
Joyeuses Fêtes !
A+