je viens également d'essayer cela mais ca ne fonctionne pas !
With selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"=offset($R$1002,Application.Match($G$17,$Q:$Q,0)-2;0,countif($Q:$Q,$G$17),1)"