Hello,
Je ne peux pas te faire ton fichier car je n'ai pas excel d'où je suis, mais je peux t'aiguiller
Pour moi tu devrais faire de la manière suivante :
1) Créer un nouveau classeur
Set NewBook = Workbooks.Add
2) On l'enregistre (adapter le chemin + le nom)
NewBook.SaveAs "C:\chemin\NomDuClasseur.xlsm"
3) Parcourir l'ensemble de tes feuilles de ton classeur avec les formules
4)copier ces feuilles
5)coller les valeurs de ces feuilles dans le classeur que l'on vient de créer
For Each Feuilles In Worksheets
ThisWorkbook.Sheets(Feuilles).Copy
After:=Workbooks(NewBook).Sheets(xlLast).PasteSpecial Paste:=xlPasteValues
Next
6) on enregistre le nouveau classeur
NewBook.save
A Tester
R@g