Vu le nombre de réponses, je pense qu'il serait bon de développer un peu... sans doute un petit fichier avec modèle de donnée et résultat attendu, nous aiderait à t'aider....tout est dit dans le titre
c'est que je voudrais choisir une liste sur une autre feuille (impossible excel met un message derreur )
With Columns("A:A").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="mot1;mot2;mot3;mot4;"
'options complementaires
End With
Do While Range("B" & i) <> "" And i<1000
a=a+Range("B" & i) & ","
Loop
Formula1:="mot1;mot2;mot3;mot4;"
Formula1=a