Copier un extrait de tableau VBA dans Excel

Merci de ta réponse michel_m mais ce n'est pas exactement ce que je cherche
Pour être plus clair voici le code que je souhaite optimiser
Cette macro consiste à trier ma feuille 2 en fonction de ma feuille 1. les plages trié sont alors copié dans la feuille 3.

Sub test_optimise2()
Dim k As Long
Dim j As Long
Dim l As Integer
Dim t As Long
Dim Tableau_j() As Variant

t = Timer

l = 0
k = 1
j = 21
i = 21

'Renvoie le nombre de plage de données (une plage correspond à 13 lignes)
Do While Feuil2.Range("C" & j).Value > 0
j = j + 13
l = l + 1
Loop

ReDim Tableau_j(l)

'Rentre dans un tableau vba les lignes qui sont balayé dans la feuille 2
For k = 0 To l - 1
Tableau_j(k) = 21 + (k * 13)
Next k

'La macro cherche la cellule "Ci" de la feuille 1 dans la feuille 2 en balayant les lignes donnés par le tableau vba (tableau_j)
'Une fois trouvé la ligne est supprimé dans mon tableau VBA et donc elle n'est plus balayé par la suite
'De plus lorsque la ligne est trouvé je recopie les valeurs de la feuille2 au niveau de la ligne trouvé dans la feuille trois
'Au niveau de la cellule recherché de la feuille 1
Do While Feuil1.Range("C" & i).Value > 0
For k = 0 To l - 1
h = Tableau_j(k)
Set cellule = Feuil2.Range(Feuil2.Cells(h + 2, 2), Feuil2.Cells(h + 2, 6)).Find(What:=Feuil1.Range("C" & i).Value, lookat:=xlWhole, SearchDirection:=xlPrevious)
If Not cellule Is Nothing Then
Tableau_j(k) = Tableau_j(l - 1)
l = l - 1
ReDim Preserve Tableau_j(l)
Feuil3.Range("A" & i & ":K" & i + 12).Value = Feuil2.Range("A" & cellule.Row - 2 & ":K" & cellule.Row + 10).Value
Exit For
Else
End If
Next k
i = i + 13
Loop

Feuil3.Range("Q2") = Application.Round((Timer - t), 1) & " Sec"

End Sub

Mon idée est de rentrer les tableau de la feuille 1 et 2 dans un tableau VBA pour gagner en temps de calcul mais je ne sais pas comment faire des recherche dans des tableau VBA ni comment copier des plages de données à partir d'un tableau VBA.

Il faut bien te rendre compte que ce que tu demandes n'est pas forcément facile et que personne ne veut passer parfois plusieurs heures à essayer de résoudre un problème bénévolement pour se voir dire après coup « non vous n'avez pas compris mon problème (rarement, je n'ai pas bien expliqué, excuses moi) il faut en plus que.... »

Je suis d'accord avec vous je me suis certainement mal exprimé. Ce que je cherche n'est pas forcément simple et n'existe peut être pas comme je le pense. Je m'excuse si cela a été mal compris.
Je veux juste copier une plage d'une variable tableau dans une feuille excel sans passer par une boucle.
Merci beaucoup de votre aide et d'avoir pris du temps pour me répondre

Pas besoin de boucle sur la page que je t'ai indiquée... :

Sheets("intro").Range(Cells(1, 1), Cells(1, UBound(Tblo))).Value = Tblo

Mais comment je fais si je veux par exemple que copier les valeurs de Tblo(4) à Tblo(10) dans Sheet.range("A5:A11").value?

Une partie de tableau ? --> je ne sais pas.
Sans avoir les données sous les yeux, je ne comprends pas (à première vue, je me demande même pourquoi il faut une macro).

L'idée c'est que j'ai un tableau de 52000 lignes et que je voudrais pouvoir en extraire 13 lignes de ce dernier puis les coller dans une feuille excel puis en prendre 13 autres et ainsi de suite.
j'aimerai donc rentrer mes 52000 lignes dans une variable tablo puis arriver à prendre 13 lignes variables de ce dernier.
pas simple ^^

Si ta feuille 3 contient les mêmes lignes que la feuille 2 (avec 52000 lignes), mais triées suivant l'ordre défini en feuille 1, j'aurais pensé qu'un tri suffirait (au besoin tu remplaces dans feuil1 et feuil2 les critères par des critères qui sont rangés en ordre alphanumérique - en préfixant avec un nombre).