Error 1004

Error 1004 ...merci résolue

Bonjour

Depuis 2 hrs j'ai un bug dans une loope
Il me met error 1004 select classe range a échoué alors que mon code est bon!!!!!!!!

...
For n = 1 To Range("A65000").End(xlUp).Row + 1

...
Windows("Cherche.xls").Activate
Sheets("Tous_NPV").Activate
Range("A65000").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Windows("Cherche_NPV.xls").Activate
End If

Next n

Merci je ne sais pas pourquoi mais en mettant dans une macro ca fonctionne

Sub Macro1()
Range("A65000").End(xlUp).Offset(1, 0).Select
End Sub

Merci beaucoup pour votre aide et vos idées

Temjeh