Liste déroulante par macro

Bonjour,


Mon problème est le suivant : dans l'une de mes cellules j'ai créé une liste déroulante avec une série de valeur et non une plage de cellule. La sélection d'un élément de la liste permet à l'utilisateur d'accéder à un autre classeur après une identification/authentification.
Ensuite je cherche à la compléter ma liste par macro lorsque je veux créer un autre élément.

Voici le code que j'utilise :

Dim liste As String
liste = Selection.Validation.Formula1
MsgBox liste 
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=liste & "," & Userform.Textbox1
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    liste= Selection.Validation.Formula1
MsgBox liste 

la msgbox me sert juste à mettre en évidence mon problème qui est que si je rentre une liste telle que Formula1:= "un,deux, trois" cela fonctionne, mais au lancement suivant de la macro msgbox liste va afficher "un;deux;trois". En conséquence ma liste déroulante n'est plus :
un
deux
trois
mais plutôt un;deux;trois

Je ne sais pas comment remédier à ce problème, en espérant que vous saurez m'aider.
Cordialement.