Importer plusieurs tableaux

Sub Extraction()
Dim f1 As Worksheet, f2 As Worksheet
Dim t, t1, t2, t3, t4

'On définit l'onglet à importer
Set f1 = Sheets("Origine")
Set f2 = Sheets(f1.Range("o40").Value)

'Tableau existant
With f1
    t1 = .[C20:G53].Value
    t2 = .[C83:G116].Value
    t3 = .[C146:G179].Value
    t4 = .[C209:G242].Value
    t5 = .[C272:G305].Value
    t6 = .[C335:G368].Value
    'Fusion des tableaux
    temp = MergeArray2DVert(t1, t2)
    temp = MergeArray2DVert(temp, t3)
    temp = MergeArray2DVert(temp, t4)
    temp = MergeArray2DVert(temp, t5)
    temp = MergeArray2DVert(temp, t6)
    temp = Application.Index(temp, Evaluate("Row(" & 1 & ":" & UBound(temp) & ")"), Array(1, 5))
End With
    
'Tableau à importer
'On enregistre les champs dans un tableau
With f2
    t1 = MergeArray2DVert(.[C20:E53].Value, .[C83:E116].Value)
    t1 = Application.Index(t1, Evaluate("Row(" & 1 & ":" & UBound(t1) & ")"), Array(1, 3))
End With

'On fusionne le tableau originel et le tableau à importer
    temp = MergeArray2DVert(temp, t1)
    temp = FiltreArraySupLignes(temp, 1, "")
    temp = Application.Index(temp, Evaluate("Row(" & 1 & ":" & UBound(temp) & ")"), Array(1, 2))
'End If

'On remplit la feuille origine
With f1
    j = 1
    k = 33
    l = 0
    If IsError(temp(2, 1)) Then
    .Cells(20, "C").Value = temp(1, 1)
    .Cells(20, "G").Value = temp(1, 2)
    Exit Sub
    End If
    For i = 20 To 335 Step 63
        If UBound(temp) - l < k Then k = UBound(temp) - l - 1
        If UBound(temp) = l Then Exit For
        .Cells(i, "C").Resize(k + 1).Value = Application.Index(temp, Evaluate("Row(" & j & ":" & j + k & ")"), 1)
        .Cells(i, "G").Resize(k + 1).Value = Application.Index(temp, Evaluate("Row(" & j & ":" & j + k & ")"), 2)
    j = j + k + 1
    l = j - 1
    Next i
End With
End Sub