Création liste dans cellules Excel en VBA

Bonjour le forum,
J'essaye de créer une liste dans une cellules en VBA; j'y arrive à créer des listes en faisant Donnes/validation liste, mais ça ne me suffit pas pour faire ce que j'ai à faire car ma liste est variable. J'ai enresgitré une macro pour voir ce qui se passait quand je fais Donnes/validation liste, mais aprés quand je l'utilise ça ne marche pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Range("B3").Select   With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula2:="val;val2;val3" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With

---

Merci d'avance pour vos réponses
Yazou

les valeurs doivent être séparés par des virgules et le paramètre est Formula1
Du type

Code:

---

Selection.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1:="toto, polo, tata"

---

Merci beaucoup pour ton aide, c'est vrai j'avais vu que c'était formula1 mais comme ça marchait pas j'ai fait plusieurs tests ;-)

Yazou