Copie de feuilles sans formules

Bonsoir à tous.

Je viens de créer une macro avec l'option de copier certaines feuilles dans un nouveau classeur.

Je souhaiterais sur la copie ne pas voir apparaitre les formules

Voici une partie de mon code VBA

'Copie les feuilles de mon fichier
Sheets(Array("CC(s)", "CP(s)", "EOTP(s)", "CF(s)", "DF(s)", "PFI")).Copy

' Enregistrement dans un nouveau classeur avec date d'envoi
MaDateEnvoi = Format(Now, "yyyy.mm.dd")
ActiveWorkbook.SaveAs Filename:=Chemin & MaDateEnvoi & "-" & MonTDB

'fermer le fichier excel
ActiveWorkbook.Close

Je vous remercie par avance de votre aide.

Pascale

Bonjour,

A tester et adapter :

Sub COPIE()
Dim WS As Worksheet, MaDateEnvoi$
Worksheets(Array("CC(s)", "CP(s)", "EOTP(s)", "CF(s)", "DF(s)", "PFI")).Copy
For Each WS In ActiveWorkbook.Worksheets 'Pour chaque feuille dans le nouveau classeur
    WS.UsedRange.Copy 'Copie la plage utilisée de la feuille
    WS.UsedRange.PasteSpecial xlPasteValues 'La colle en valeur
Next WS
Application.CutCopyMode = False
MaDateEnvoi = Format(Now, "yyyy.mm.dd")
'ActiveWorkbook.SaveAs Filename:=Chemin & MaDateEnvoi & "-" & MonTDB
End Sub

Cdlt,

Bonjour

Merci beaucoup.

Bonne journée