copier le resultat d'une recherche excel

Bonjour à tous,

Voila mon problème, sous excel je compare 2 feuilles et je voudrais copier le resultat de cette comparaison sur une 3ieme Feuilles.
J'ai écrit une petite procédure en VB toute simple mais je n'arrive pas à copier et coller sur ma 3ieme feuille tout en décalant les lignes.

Pour etre plus clair voici mon code :

Sub recherche()

Dim MotCherche, L, C, InL, InC, OutL, i, j, b
Dim Origine, Destination

b = 1
j = 1
i = 2
Set Origine = Workbooks("internet.xls" ).Sheets("Gestion des abonnements" )
Set origine2 = Workbooks("internet.xls" ).Sheets("Etablissement traction Centres" )
Set Destination = Workbooks("internet.xls" ).Sheets("Feuil3" )


For L = 1 To 467

Do Until Origine.Cells(L, 3).Value = origine2.Cells(j, 1) Or j = 467

j = j + 1

Loop


If Origine.Cells(L, 3).Value = origine2.Cells(j, 1) Then

'ligne à copier

End If

Next

End Sub