XL 2013 Redim Preserve Variable Tableau Emboité = Erreur 9 (Indice hors plage)

Sub test2()
    Dim TabBase(), i As Long, j As Long, tmp
    'ReDim TabBase(1 To 1)
    For i = 1 To 3 ' 57
        ReDim Preserve TabBase(1 To i)
        '2 lignes récupées au lieu de 488 ou autre, reculer B15:C16 pour chaque TabBase(i)
        ' données
        TabBase(i) = [B15:C16].Value 'lecture en 1 fois. Seule B nous intéresse, la 2nde colonne est prête pour les dates
        ' dates
        tmp = [A15:A16].Value ' ici aussi lecture plage en 1 fois
        For j = 1 To UBound(tmp)
            TabBase(i)(j, 2) = tmp(j, 1) ' on récupère la 2nde colonne pour les dates
        Next j
    Next i
End Sub

           With Range(Cells(pr, 1), Cells(503, i + 1))
                Col = i + 1
                TabBase(i) = Application.Index(.Value, Evaluate("ROW(1:" & .Rows.Count & ")"), [{1,Col}])
            End With

Comment evité cela : Erreur2015 avec cela
              [{1,Col}]    si col = 2 / ou [{1,Col}]    si col = 3 / [{1,Col}]    si col = 4
              C'est a dire c'est des numéro de colonnes / Colonne 2 Ou 3 Ou 4
mais si
              [{1,2}]  si 2 écrit en dur / ou [{1,3}] si 3 écrit en dur / [{1,4}] si 4 écrit en dur
              Alors cela fonctionne impeccable !

Option Base 1
Sub test()
Dim TabBase() As Variant
    ReDim TabBase(1)
Dim Col As Variant
Dim TabTemp() As Variant
    For i = 1 To 3
        pr = Cells(Cells(2, i + 1).End(xlDown).Row, i + 1).Row
            With Range(Cells(pr, 1), Cells(503, i + 1))
                Col = i + 1
                TabBase(i) = Application.Index(.Value, Evaluate("ROW(1:" & .Rows.Count & ")"), [{1,Col}])
            End With
        ReDim Preserve TabBase(UBound(TabBase) + 1)
    Next i
'
ReDim Preserve TabBase(UBound(TabBase) - 1)
End Sub

Sub test()
Set plage = [A1:C1000]
 ligne = 1
 arrcolumns = Array(1, 3)
 tb = Application.Index(plage.Value, Evaluate("ROW(1:" & plage.Rows.Count & ")"), arrcolumns)    'mettre les colonnes que l'on veut dans l'ordre voulues
 MsgBox UBound(tb) & " lignes et " & UBound(tb, 2) & " colonnes"
End Sub

Option Base 1
Sub test1()
Dim i As Integer: i = 1
Dim TabBase() As Variant
    ReDim TabBase(i)
' ici pour Application.Index ci-dessous variable "arrcolumns"
Dim arrcolumns As Variant
    For i = 1 To 57
        pr = Cells(Cells(2, i + 1).End(xlDown).Row, i + 1).Row
        ' Copier des Colonne Non Contigue
            With Range(Cells(pr, 1), Cells(503, i + 1))
                 arrcolumns = Array(1, i + 1)
                 ' ici recupérations des plages Non Contiguës
                 TabBase(i) = Application.Index(.Value, Evaluate("ROW(1:" & .Rows.Count & ")"), arrcolumns)
            End With
        ' Fin de recopie des colonnes non contiguës
        ReDim Preserve TabBase(UBound(TabBase) + 1)
    Next i
'
ReDim Preserve TabBase(UBound(TabBase) - 1)
End Sub

With [A1:G20]
    tb = Application.Index(.Value, [{7;2;15;5}], Array(1, 4, 7, 2))
 MsgBox UBound(tb) & " lignes et " & UBound(tb, 2) & " colonnes"
End With

' Staple1600
Function GetArrayFromColumnsStap1600(SheetName As String, StartRow As Long, ParamArray Cols()) As Variant
  Dim LastRow As Long, C As Variant, Text As String, WS As Worksheet, MyArray() As String
  If SheetName = "" Then SheetName = ActiveSheet.Name
  Set WS = Worksheets(SheetName)
  For Each C In Cols
    LastRow = WS.Cells(Rows.Count, C).End(xlUp).Row
    Text = Text & Chr(1) & Join(WorksheetFunction.Transpose(WS.Range(WS.Cells(StartRow, C), WS.Cells(LastRow, C))), Chr(1))
  MsgBox Text
  Next
  GetArrayFromColumns = Split(Mid(Text, 2), Chr(1))
End Function

' Staple1600
Sub testStaple1600()
  Dim Z As Long, MyArray() As String
  MyArray = GetArrayFromColumnsStap1600("Feuil1", 2, "A", "B", "C", "I", "AF")
  For Z = LBound(MyArray) To UBound(MyArray)
    Debug.Print MyArray(Z)
  Next
End Sub

'PatrickToulon
' Option Base 1
Function GetArrayFromColumnsPatrickToulon(ByVal Rgn As Range, ByVal arrcolumns As Variant, ByVal i As Integer, ByRef TabBase() As Variant)
    With Rgn
        TabBase(i) = Application.Index(.Value, Evaluate("ROW(1:" & .Rows.Count & ")"), arrcolumns)
    End With
End Function

'PatrickToulon
Sub testPatrickToulon()
' Fonctionne Impecable !
Dim TabBase() As Variant
Dim i As Integer: i = 0
    ReDim TabBase(i)
'
Dim Pr As Long
Dim Rgn As Range
Dim arrcolumns As Variant
'
    For i = 1 To 3       ' Pour la A / B / C
        arrcolumns = Array(1, i + 1)
        Pr = Cells(Cells(2, i + 1).End(xlDown).Row, i + 1).Row
        Set Rgn = Range(Cells(Pr, 1), Cells(503, i + 1))
        ' Fonction
        GetArrayFromColumnsPatrickToulon Rgn, arrcolumns, (i - 1), TabBase
        ReDim Preserve TabBase(UBound(TabBase) + 1)
    Next i
    ReDim Preserve TabBase(UBound(TabBase) - 1)
    
    ' Pour exemple Staple1600
    ' Ajout de la Colonne I =9 et AU = 47
        Pr = Cells(Cells(2, i + 1).End(xlDown).Row, i + 1).Row
        ReDim Preserve TabBase(UBound(TabBase) + 2)
    ' Fonction Colonne I =9
        GetArrayFromColumnsPatrickToulon Range(Cells(Pr, 1), Cells(503, 9)), Array(1, 9), 3, TabBase
    ' Fonction Colonne AU = 47
        GetArrayFromColumnsPatrickToulon Range(Cells(Pr, 1), Cells(503, 47)), Array(1, 47), 4, TabBase
        
' Lecture
  For Z = LBound(TabBase) To UBound(TabBase)
    For y = LBound(TabBase(Z), 1) To UBound(TabBase(Z), 1)
        Debug.Print TabBase(Z)(y, 1): A = TabBase(Z)(y, 1)
        Debug.Print TabBase(Z)(y, 2): B = TabBase(Z)(y, 2)
        Debug.Print A & " / " & B
    Next y
  Next Z
End Sub

Sub testStaple1600()
Dim Z As Long, MyArray() As String, vArray() As String
Sheets.Add(, Sheets(Sheets.Count)).Name = "Laurent950"
Sheets("Laurent950").Range("A1:G5") = "=ADDRESS(ROW(),COLUMN(),4)"
MyArray = GetArrayFromColumns("Laurent950", 2, "C", "E", "G")
Sheets("Laurent950").[K1].Resize(UBound(MyArray) + 1) = Application.Transpose(MyArray)
vArray = GetArrayFromColumns("Laurent950", 4, "B", "D", "F")
Sheets("Laurent950").[A7].Resize(, UBound(vArray) + 1) = vArray
End Sub