Liste déroulante mal formaté ?

Bonjour le Forum,

J'ai un classeur en P_J qui me crée un autre classeur "Classeur deux" qui contient en A1 une liste déroulante qui m'affiche "Bon;Jour;Demain;Hier", grâce à l'instruction du "Classeur 1" ,"module 1"

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Bon;Jour;Demain;Hier"
End With

En faisant "Données";"Validation des données";"OK",cette liste déroulante se reformate correctement, à savoir:
"Bon"
"Jour"
"Demain"
"Hier"

Comment éviter de passer par "Données";"Validation des données";"OK" pour obtenir la liste correcte ?

Merci d'avance pour votre aide !

René