Erreur definie par l'application ou par l'objet

Bonjour,
Sub test()
Dim i As Long, j As String, derligne As Long, position As Long, valeur As Long

position = 2

While position <= 1036418
Sheets("Feuil1").Select
Rows(position & ":" & position).Select
If (Range("A" & position) = Range("AS" & position) And Range("D" & position) = Range("AT" & position)) Then
Range("G" & position).Select
Rows(position & ":" & position).Select
Selection.Copy
Sheets("Feuil4").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1") = Range("A1") + 1
End If
position = position + 1
Wend
Range("AR1").Select
ActiveCell.FormulaR1C1 = "=MAX(C[-35])"
Range("C1").Select
Range("AQ1").Select
ActiveCell.FormulaR1C1 = "=MATCH(RC[1],C[-34],0)"
Range("AQ1").Select
valeur = Range("AQ1")
Rows(valeur & ":" & valeur).Select
Selection.Copy
Sheets("Feuil5").Select
Range("A1").Select
ActiveSheet.Paste
End Sub

le code doit faire des comparaison, selectionné une ligne de donnée, la copié et la collé sur une nouvelle feuille de calcul. Mais arrivé au niveau de la ligne souligné il renvoie l'erreur 1004