Comparer les valeurs de deux colonnes en vba

sub ctrl_et_copie()
dim i as long
for i = 1 to sheets("Feuil1").range("A65536").end(xlup)
     if application.worksheetFunction.countif(Sheets("Feuil2").range("A:A"), sheets("Feuil1").range("A" & i))>0 then
                sheets("Feuil3").range("A65536").end(xlup).offset(1,0) = sheets("Feuil1").range("A" & i)
     end if
next i
end sub

Sub Agent_sortant() 
      dim w1 as worksheet, w2 as worksheet, w3 as worksheet
      dim i as long
      set w1 = Sheets("Réaffectation_septembre_2008")
      set w2 = Sheets("Réaffectation_octobre_2008")
      set w3 = Sheets("Personnels_sortants")

      for i = 3 to w1.range("C65536").end(xlup).row ' faire toute la colonne C
             if application.worksheetfunction.countif(w2.range("C:C"), w1.range("C" & i)) = 0 then
                    w1.range("C" & i & ":E" & i).copy destination:=W3.range("C65536").end(xlup).offset(1,0)
             End If 
      Next 
       MsgBox "Terminé" 
End Sub 

      for i = 3 to w1.range("C65536").end(xlup).row ' faire toute la colonne C
             if application.worksheetfunction.countif(w2.range("C:C"), w1.range("C" & i)) = 0 then
                    w1.range("A" & i ).entireRow.copy destination:=W3.range("C65536").end(xlup).offset(1,-2)
             End If 
      Next