Fusionner les valeurs de plusieurs fichiers dans un seul.

Bonjour,

Je tente de fusionner les valeurs et non les formules de plusieurs fichier excels en un seul.

Ces valeurs correspondent à des dates, des noms et des chiffres.

Or quand je lance ce code, il me met erreur d'éexecution 1004 et "Erreur définie par l'application ou pas l'objet"

Ce code fonctionne très bien si je ne met pas le

Special Paste:=xlValues

mais me donne les formules sources au lieu des valeurs.

Sub vive()
Range("A2").Select   
Chemin = "C:\Vivevois\"    
Fichier = Dir(Chemin & "*.xls") ' Premier fichier
Do While Fichier <> ""
    Workbooks.Open Filename:=Chemin & Fichier
    Sheets("DataEnquêteParcelle").Activate
    Range("$A$2:$BQ$41").Copy
    ThisWorkbook.Activate
    ActiveSheet.PasteSpecial Paste:=xlValues
    Windows(Fichier).Activate
    Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
    ThisWorkbook.Activate
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Fichier = Dir ' Fichier suivant
Loop
End Sub

Comment résoudre cette erreur ?