With ActiveSheet
Cells.Select
Range("X14").Activate
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
Ceci ouvre un nouveau classeur et fait deux copier coller sépcial de la feuille active:: Valeur et format.
Cette technique ne copie pas les objet, les formules et les macro, seulement le texte.
Peri