Bonjour à tous

Je cherche à créer une liste déroulante des cellules par la méthode validation

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 With Range("I13").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="1;2;3"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
 
    End With
Le problème est : au lieu de m'afficher une liste 1 puis 2 puis 3
J’obtiens une liste avec un élément 1;2;3


Merci de votre aide