copier des lignes sur une autre feuille suivant un code

Sub Macro1()
Dim od As Object 'déclare la variable od (Onglet de DEstination)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim r As Range 'déclare la variable r (Recherche)

Set od = Sheets("res") 'définit l'onglet de destination (à adapter à ton cas)
od.Range("A1").CurrentRegion.Clear 'efface les anciennes données 
Sheets("Feuil1").Range("A1").CurrentRegion.Copy od.Range("A1") 'copy et colle le tableau de l'onglet "Feuil1"
od.Range("E1").Value = "QTE 1" 'place "QTE 1" en E1
od.Range("F1").Value = "Prix 1" 'place "Prix 1" en F1
With Sheets("Feuil2") 'prend en compte l'onglet "Feuil2"
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée de la colonne A
    For x = 2 To dl 'boucle sur toutes les cellules de la ligne 2 à dl
        Set r = od.Columns(1).Find(.Cells(x, 1).Value, , xlValues, xlWhole) 'définit la recherche r
        If Not r Is Nothing Then .Range(.Cells(x, 2), .Cells(x, 3)).Copy r.Offset(0, 4) 'si il existe au moins une occurrence trouvé copy la quantité et le prix
    Next x 'prochaine cellule de la boucle
End With 'fin de la prise en compte de l'onglet "Feuil2"
End Sub