[VBA][Excel] code validation liste

Bonjour, voici un code que j'ai créé en enregistrant une macro

Code:

---

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

Range("I3:I273").Select With Selection.validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="P;F;A" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With

---

Je souhaite crée dans les cellules sélectionnées un choix de valeur (ici P ou F ou A).
Excel a cette fonction en faisant allant sur le menu :"Données" puis "Validation" puis en choisissant dans les Option liste.

Cela fonctionne quand je le fait en manuel. En enregistrant la macro, c'est le code ci dessus. Mais dès que je l'execute en automatique dans chacune des cellules, je ne peux selectionner que P;F;A en une seule fois.

Merci si quelqu'un peut m'aider.

remplace les ; par des ,

Code:

---

1 2 3

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="P,F,A"

---

et pour éviter des problémes lors du lancement de la macro (classeur actif pas le bon, pas la bonne feuille) il faut "préfixer" les objets range... de plus évite l'utilisation des Select/Selection...

Code:

---

1 2 3 4 5

Sub test() With ThisWorkbook.Sheets("Feuil2").Range("I3:I273").Validation .Delete ...

---

merci de ton aide, je n'avais pas pensé à modifié les ; par des ,.
merci