Problème VBA débutante!!

Bonjour,
j'ai un problème avec mon programme VB, il fonctionne mais ne fais pas ce que je voudrais!

Sub essai2()
Dim ligne As Integer
Dim ligne2 As Integer
Dim ligne3 As Integer
ligne = 3
ligne3 = 2
While Feuil1.Cells(ligne, 7).Value <> ""

ligne2 = 2
Do

If Feuil1.Cells(ligne, 7).Value <> Feuil2.Cells(ligne2, 3).Value Or Feuil1.Cells(ligne, 29).Value <> Feuil2.Cells(ligne2, 21).Value Then

Sheets("Feuil1").Select
Range("a" & ligne & ":ag" & ligne).Select

Selection.Copy
Sheets("Feuil3").Select
Range("a" & ligne3 & ":ag" & ligne3).Activate
ActiveSheet.Paste
ligne3 = ligne3 + 1
End If
ligne2 = ligne2 + 1
Loop Until Feuil2.Cells(ligne2, 3) = ""

ligne = ligne + 1
Wend
End Sub


J'explique le problème j'ai trois feuil dans mon classeur, la première avec des données, la deuxièmes avec des donnée, il faut que le programme me permette de prendre une valeur de la feuil1 regardé si elle est dans la plage de données de la feuil2 et si ce n'est pas le cas alors l'écrire sur la feuille 3 (c'est la donnée de la feuil1 qu'on copie dans la 3ème)!

Si vous voyez où l'erreur je serai soulagé je compte sur vous !
Merci d'avance!