Erreur sur activesheet.paste

Bonjour,

J'ai utilisé une macro avec activesheet.paste et cela fonctionnait très bien. Je reprends la macro quelques mois plus tard et elle s'arrête à la ligne activesheet.paste avec le message d'erreur suivant :
Erreur d'exécution '1004'
La méthode Paste de la classe Worksheet a échoué


voici un extrait de la macro

If (Cells(1, 2).Value = "Dark Subtracted") Or (Cells(1, 2).Value = "Dark Subtracted #1") Then
Range(Cells(2, 2), Cells(2013, 2)).Select
Else
Range(Cells(3, 2), Cells(2014, 2)).Select
End If
Selection.Copy
Application.CutCopyMode = False
ActiveWorkbook.Close (False)

Windows("Moselle-mis_en_forme_Unscrambler.xls").Activate
' collage des intensités Raman
Cells(2, Nbre_Fichiers_traites + 2).Select
ActiveSheet.Paste
'copie du nom du fichier
Cells(1, Nbre_Fichiers_traites + 2).Value = vaNom_de_Fichier


Quelqu'un a-t-il une solution ?
Merci