probleme de rechercheh automatique

Bonjour à tous,

Voici mon probleme : je souhaiterai, pour chaque tableau de la feuille "Tableaux", inscrire les "codes" ainsi que la "Prod à réaliser" dans un nouveau tableau sur la feuille "Résultats"
Mon programme marche pour le premier code mais pour tous les autres le rechercheh ne se fait pas dans la bonne table matrice et j'ai donc #N/A.
Important : Le nombre de tableau est variable.

Voici mon code actuel :

Sub Resultats()

Dim ws1 As Worksheet, ws2 As Worksheet
Dim rg1 As Range, rg2 As Range

Set ws1 = ThisWorkbook.Sheets("Tableaux") 'feuille de départ
Set ws2 = ThisWorkbook.Sheets("Résultats") 'feuille de destination

Set rg1 = ws1.Range("A2") 'on part de la cellule A2
Set rg2 = ws2.Range("A1") 'le 1er tableau créé est en A1 de la feuille Destination

rg2 = "Produits/séquences" '.. on crée le tableau, 1re colonne
Range(rg2.Offset(0, 1), rg2.Offset(0, 6)) = Array(1, 2, 3, 4, 5, 6)

Do Until IsEmpty(rg1)

rg2.Offset(1, 0) = rg1
rg2.Offset(1, 1) = "=HLOOKUP(R1C,Tableaux!R[1]C2:R[10]C12,2,FALSE)"
Set rg2 = rg2.Offset(1, 0)
Set rg1 = rg1.Offset(10, 0)
Loop

End Sub

Merci d'avance