Créer liste déroulante à partir d'un tableau

Bonjour,

Je souhaite créer une liste déroulante en VBA dans une cellule à partir des éléments d'un tableau dynamique en mémoire (de la forme table(x)).


Mes données stockées dans le tableau sont correctes. J'aimerais donc remplir une liste déroulante avec ses données.


Ma macro pour créer la liste déroulante fonctionne, mais pas avec le tableau comme source de données. Voici donc le code vba:

Function listbox_create(sort_name() As String)   'sort_name remplis correctement

    Cells(1, 1).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, _
        operator:=xlBetween, Formula1:=sort_name
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Add a project"
        .ErrorTitle = "Uncreated project."
        .InputMessage = "Select a project."
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True

Quelle serait la bonne façon pour assigner à la liste déroulante les valeurs du tableau sort_name() telle que "Formula1:=sort_name"?

Merci d'avance!