ActiveWorkbook.Names.Add Name:="maliste", RefersToR1C1:= _
"=IF(COUNTA(Feuil1!R4C2:R10C2)=0,"""",Feuil1!R4C2:R10C2)"
With Range("D4").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=maliste"
End With