Si j'essaye en cherchant par exemple à appliquer une liste de choix simple du type oui-non ca donne ça et ca marche, tu sélectionne ta plage et actionne la macro :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="oui;non"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
david of lunel