Vba consolider

Je dois consolider tout tout plein de fichier dans un fichier de synthèse.

j'ai trouvé une super macro, sauf sauf...qu'elle fait que copier/coller la plage que je lui demande d'aller chercher.
et comme dans ma plage ce sont des formule du coup quand je colle ça ne va pas du tout :(
je suis pas super pro dans les macro ça fait à peine 15 jrs que j'ai découvert cette univers.
donc je ne sais pas quoi changer à la place de copy et paste pour que ça me prenne que les valeurs....

alors j'ai modifier les lignes où j'ai mis des apostophres :
'Range("al481:bw502").Copy
'ThisWorkbook.Activate
'ActiveSheet.Paste
'Windows(Fichier).Activate

par

Workbooks("Synthése_EAE_2015.xlsm").Worksheets("Feuil1").Range("A5").Value = Workbooks("Fichier").Worksheets("Formulaire").Range("al481:bw502").Value

mais ça ne marche pas :(

Sub consolider()
'créer dans c:\utilisateur\public un nouveau dosser que vous nommerez EAE 2015
'mettre dans ce nouveau dossier tous les entretiens annuel France


Range("A5").Select 'sélectionner la cellule de début
Chemin = "C:\Users\Public\EAE 2015\" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.xls") ' Premier fichier
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
'Range("al481:bw502").Copy
'ThisWorkbook.Activate
'ActiveSheet.Paste
Workbooks("Synthése_EAE_2015.xlsm").Worksheets("Feuil1").Range("A5").Value = Workbooks("Fichier").Worksheets("Formulaire").Range("al481:bw502").Value
'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