Macro excel 2007

Bonjour,

Je dois comparer deux tableaux.
Je fais donc une boucle qui parcours le premier tableau ligne par ligne, et une boucle imbriqué qui parcours le deuxième tableau.
Quand les valeurs sont identiques, il y a copie de la ligne entière dans le premier tableau.

Sub test()
Dim numlign As Integer
Dim SAPAccount As Integer
Dim Paye As String
Dim i As Integer
Dim LignSAP As Integer

numlign = Feuil2.UsedRange.Rows.Count
numSAP = Feuil1.UsedRange.Rows.Count
SAP = Feuil2.Cells(numlign, 1).Value
For i = 1 To numlign
LignSAP = 1
For LignSAP = 1 To numSAP
If Cells(i, 1).Value = Cells(LignSAP, 1) Then
With Sheets("Feuil2")
.Range(Cells(i, 1), .Cells(ligne, 5)).Copy _
Sheets("Feuil1").Range("D5")
End With

End If
Next
Next
End Sub

Et là, patatra c'est le drame, erreur d'execution 1004.
J'ai tourné et retourné le problème mais mon cerveau a du perdre trop de neurones, je ne trouve pas ou je me suis planté.
¨Pourriez vous m'aider ?