liste de validation avec vba

bonjour,

j'ai un petit soucis, je veux créer automatiquement une liste de validation sans faire référence à une liste dans une feuille excel.

je crée la macro de façon automatique
ce qui donne

Sub Macro1()


Range("A3").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="essai1;essai2"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

lorsque je regarde la cellule A3, j'ai bien une liste déroulante avec 2 possibilités: essai1 et essai2
par contre, si je relance la macro, en cellule A3 je n'ai plus qu'une seule possibilité notée :
"essai1;essai2"

que faut il changer pour avoir ces 2 choix

merci

chantal