Sauvegarde feuille sous nom de cellulle.

Bonjour à tous,

J'utilise le code ci-dessous pour sauvegarder mes fichiers, il fonctionne très bien, cependant cela prend une place folle sur mon dd. Je voudrais savoir comment copier uniquement ma feuille DEVIS au lieu de mon classeur tout entier.

Merci par avance de votre aide.

Sub SAVE()

'strDate = Format(Now, " dd-mmm-yy h-mm-ss")


Chemin = "c:\GESTCOM\DEVIS\"
FileNameXls = Range("DEVIS!K7").Value & ".xls"

chemXls = Chemin & FileNameXls

'FileNameXls = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & strDate & ".xls"

'Make copy of the activeworkbook
ActiveWorkbook.SaveCopyAs (chemXls)


End Sub