Copie format - Bug

Une question, je cherche à copier-coller via VBA un onglet sur un nouveau classeur en ne conservant que le format et les valeurs.

J'y arrive pour les valeurs, pas pour le format, je ne trouve pas la fonction adaptée (attention, j'ai des mises en forme conditionnelles, du texte, des dates...).

Sub copieonglet()
Dim Sh As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Copy
With ActiveWorkbook
For Each Sh In .Worksheets
Sh.UsedRange.Value = Sh.UsedRange.Value
Next Sh
Application.Dialogs(xlDialogSaveAs).Show
.Close
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

Une idée ? Merci :)

Bonjour,

Que je sache, tu ne peux pas copier-coller des MFC d'un classeur à l'autre puisque le second n'en possède pas.