Tableau multidimensionnel dans une liste

Bonjour,

J'ai un tableau multidimensionnel, de type "String", que j'aimerai mettre dans deux listes. Je m'explique, je voudrais mettre dans la première liste toutes les valeurs appartenant à "MyList()", et dans l'autre liste certaines valeurs de "MyList()()". je voudrais donc savoir comment faire appel à toutes les valeurs de MyList(), et ce juste en paramètre de "Formula1:=Join(MyList, ",")". (Un peu brouillon l'explication ^^)

Voici le code :

Dim ws As Worksheet
Dim i As Integer, j As Integer
ReDim Preserve MyList(1 To maxNbMachine, 1 To maxNbSousMachine)
i = 1
j = 1
'Parcourt de toutes les feuilles du classeur
For Each ws In Worksheets
    If ws.Name <> "Interventions Machine" And ws.Name <> "Impression Temporaire" Then
        If i <> 1 Then
            If MyList(i) <> Mid(ws.Name, 1, (InStr(ws.Name, "-")) - 2) Then
                i = i + 1
                j = 1
            End If
        End If
        MyList(i, j) = Mid(ws.Name, 1, (InStr(ws.Name, "-")) - 2) & Mid(ws.Name, (InStr(ws.Name, "-")) + 1)
    End If
Next

With Range("C11").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(MyList, ",") *** !!! Erreur ICIIIIIIIIIIII !!! ***
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = "Information"
    .ErrorTitle = ""
    .InputMessage = "Cliquez sur la flèche à droite afin de sélectionner la dénomination de la machine."
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With

On peut voir que ma liste est chargée au dessus, mon problème étant que "Formula1:=Join(MyList, ",")" n'est pas reconnut. Mon message d'erreur étant "Argument ou appel de procédure incorrecte".

J'ai déjà fait la même démarche avec un tableau de type "String", mais à une dimension. Aucun problème de ce côté là.

Un peu d'aide serait donc le bienvenu,
merci !


Bien cordialement,
Hugo