sauvegarde

Merci a Eric pour ça reponce
bonjour le forum

Sub Ajout ()
Selection.copy
Sheets.Add.Name = Format (Date, "mmmmyy")
ActiveSheet.Paste
End Sub

a cette macro je voudrai faire une sauvegarde de la feuil 2 de mon classeur
sur cette nouv feuil

merci de votre aide
nat