Liste de validation à partir d'un tableau créé en VBA

Bonsoir,

J'ai une problématique pour remplir une liste de validation pointant vers un Nom créé en vba.

Je récupère la liste des noms de mes onglets avec le code suivant et je créé un Nom "ListeAnalyseur". Malheureusement j'ai l'erreur "la source est reconnue comme erronée" sur la création de la liste de validation.

Option Explicit

Public Montab()

Sub ListOnglet()
'Dim Montab()
Dim k As Integer, k2 As Integer
With ActiveWorkbook
For k = 1 To Sheets.Count
          ReDim Preserve Montab(k2)
          Montab(k2) = Sheets(k).Name
          k2 = k2 + 1
Next

.Names.Add Name:="ListeAnalyseur", RefersTo:=Montab()
End With
End Sub

une idée du problème?

Hello à tous,

Personne n'a une idée de mon problème?

Puis-je directement crée ma liste de validation en vba et l'alimenter avec mon tableau Montab()?

Je n'ai rien trouvé de probant sur le net....

J'ai tester cela mais sans succès:

With Worksheets("Feuil1")
    With Range("B2").Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:=Join(Montab(), ",")
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End With

Je me reponds en esperant que cela puisse servir à d'autres.

J'avais une petite erreur dans mon code.

Voici le bon:

With Worksheets("Feuil1")
    With Range("B2").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(Montab, ",")
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End With