Macro copier/coller dans un autre workbook aboutit à runtime error 1004

[Cybernetik]

Bonjour tout le monde,

Je travaille sur des données dans le but d'extraire d'un fichier ayant un format particulier des données, triées par onglet dans un nouveau fichier.

J'ai deux catégories de données, lors que j'extrais, une fonctionne à merveille, et en prenant le même code (juste en changeant quelques mots pour que catégorie1 devienne catégorie2 ) je me retrouve avec un "Runtime error 1004" sur la méthode Paste...


Code de ce bout là en particulier :
--------------------------------------------------
Function ExtractionDonneesTrains(NbTrain As Range)

Dim MaxiLigne As Double
Dim NomPage As String

Workbooks("Book1").Activate
Sheets("TriTrains").Select

Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:=NbTrain.Value()
MaxiLigne = Range("A60000").End(xlUp).Row

Range(Cells(2, 1), Cells(MaxiLigne, 10)).Copy

NomPage = "t" & NbTrain.Value()
MsgBox MaxiLigne

Workbooks("Trains").Activate
Sheets(NomPage).Select
Cells.Select
ActiveSheet.Paste 'Ligne où arrive le problème

Workbooks("Book1").Activate
Sheets("Sheet1").Select


End Function
-------------------------------------


Mes données sont sur la feuille "TriTrains" du Book1, et je filtre pour obtenir des données à coller dans la feuille "txxxx" (où x est le numéro de train en paramètre du tri) du fichier "Trains".
Pour info, il me déclenche l'erreur mais a pourtant bien collé les éléments dans la page !


Quelqu'un aurait une idée du problème ? J'ai cherché un peu sur le web, j'ai vérifié qu'il n'avait pas perdu la zone de données etc mais non il copie bien...

Autre chose : ça fonctionne exactement pareil et correctement pour un autre traitement fait juste avant.

Merci.

Nico