bonjour
ActiveSheet.UsedRange.Copy
Workbooks.Add
ActiveSheet.[A1].PasteSpecial Paste:=xlPasteFormulas
ActiveSheet.[A1].PasteSpecial Paste:=xlPasteValues
il y a des macros qui efface les boutons mais le code ci-dessous lui copie que le nécessaire
le hic c'est que n'ai pas pu cumulé les valeurs du paramètre paste.
je pensais pouvoir faire ...paste:=xlpasteformulas + xlpastevalues
mais cela ne marche pas
en cherchant dans l'aide tu trouveras les autres valeurs, tu peux notamment coller le format ou les commentaires
bye
stephane