Copier coller valeur / VBA

Bonjour

J'ai un fichier de calcul qui contient plusieurs onglets

tosu les onglets sont liés par des formules.

J'ai créé une macro afin d'obtenir un fichier contenant les 2 seuls onglets suivants: "MENSUEL" et "HEBDO"

Tout se passe bien par contre je souhaiterais que le copier coller des onglets soit fait en valeur

car lorsque l'on ouvre le fichier créé par la macro il fait référence à des liens avec les formules ds toutes les cellules (et ceci est un peu désagréable car ca ralentit et alourdit aussi le fichier)

ci dessous la macro

Merci pour votre aide

Sub XX ()

Dim extension As String, chemin As String, nomfichier As String

extension = ".xlsx"

chemin = "\\FCC\FCC-RECAP\"

nomfichier = "XX" & extension

Sheets(Array("MENSUEL", "HEBDO")).Copy

ActiveWorkbook.SaveAs Filename:=chemin & nomfichier

End Sub

Bonsoir,

une proposition, à tester

Sub XX () 
Dim extension As String, chemin As String, nomfichier As String 
extension = ".xlsx" 
chemin = "\\FCC\FCC-RECAP\" 

nomfichier = "XX" & extension 
Sheets("MENSUEL").Cells.Copy
Sheets("Mensuel").Cells.PasteSpecial Paste:=xlPasteValues
Sheets("hebdo").Cells.Copy
Sheets("hebdo").Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=chemin & nomfichier 

End Sub