Copie d'une feuille Excel à une autre avec la condition des en-têtes de col

Bonjour, je souhaite copier les données à condition que les en-têtes de colonnes soient d'une feuille à l'autre. Les valeurs sont dans la colonne A de la première feuille et les mêmes valeurs sont dans la première ligne de la deuxième feuille. Ce code a été obtenu, mais il est copié dans la même ligne. Je souhaite le modifier pour le copier dans la première ligne vierge car les copies sont constamment répétées et je ne veux pas perdre les anciennes données. Merci

Sub Copie()
Dim Tablo1(), Tablo2(), fin As Long, i As Long
    fin = Sheets("recherche").Range("A2").End(xlDown).Row
    ReDim Tablo1(2, fin - 3)
    ReDim Tablo2(fin - 3)
    For i = 0 To fin - 3
        Tablo1(1, i) = Sheets("recherche").Range("A" & i + 3).Value 'colonne A
        Tablo1(2, i) = Sheets("recherche").Range("B" & i + 3).Value 'colonne B
'        Debug.Print Tablo1(1, i) & ":" & Tablo1(2, i)
        Tablo2(i) = Sheets("Feuil1").Cells(1, i + 2).Value
'        Debug.Print Tablo2(i)
    Next
    For i = 0 To fin - 3
        For j = 0 To fin - 3
            If Tablo1(1, i) = Tablo2(j) And Tablo1(2, i) <> vbNullString Then
                Sheets("Feuil1").Cells(2, j + 2) = Tablo1(2, i)
            End If
        Next
    Next
End Sub
Rechercher des sujets similaires à "copie feuille condition tetes col"