Erreur 1004 depuis le passage à Excel 2010 sur une macro

Bonjour à tous,

Depuis la migration à excel 2010,j'ai un problème avec une macro que j'utilisais pour créer un seul fichier excel à partir d'une centaine de fichiers excel identiques.

Pourriez vous jeter un oeil sur le code que j'utilise car je ne vois pas du tout d'où provient le problème ?

Sachant que je suis un bon débutant dans le domaine.

Sub recup()
Application.DisplayAlerts = False
Range("A3").Select 'sélectionner la cellule de début
Chemin = "Y:\Bon de commande\" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.xlsx") ' Premier fichier
CopyTargetBookmark = 1
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier, Local:=True
ActiveWorkbook.Worksheets(1).Range("A3", "P" & Sheets("Bon de commande").Range("A1000").End(xlUp).Row).Copy
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("A" & CopyTargetBookmark).Select
ActiveSheet.Paste
CopyTargetBookmark = 1 + ActiveWorkbook.Worksheets(1).UsedRange.Rows.Count
Fichier = Dir ' Fichier suivant
Loop
End Sub

Merci pour l'intérêt que vous porterez à ma demande.

Maxime