Liste déroulante et tableau

Bonjour à toutes et à tous,

J'ai créé une liste déroulant dans une cellule.
Mon problème est que pour le moment les valeurs de cette liste déroulante sont placées dans une colonne de la même feuille qui est donc "condamnée".
J'ai donc créé un tableau vba qui contient les données de la liste mais je n'arrive pas à amener ces données dans la liste déroulante...
Voici le bout de ma macro à compléter :

ReDim MonTab(30) 
For F = 1 To 30 
    MonTab(F) = "code000" & F 
Next     
???.select 
        With Selection.Validation 
            .Delete 
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, Operator:= _ 
            xlBetween, Formula1:= ??? 
            .IgnoreBlank = True 
            .InCellDropdown = True 
            .InputTitle = "" 
            .ErrorTitle = "" 
            .InputMessage = "" 
            .ErrorMessage = "" 
            .ShowInput = True 
            .ShowError = True 
        End With

J'ai essayé pas mal de syntaxe mais toujours des erreurs.
Et c'est là que j'ai besoin d'aide!

Merci d'avance