enregistrement d'une seule feuille

Sub SauveFeuilleActive()
'''---------------------------------------------------------------
'''   Sauvegarde de la feuille active dans un nouveau classeur
'''---------------------------------------------------------------
    Dim szNomFichier As Variant

    '''Demande nom du fichier (par défaut, le nom de la feuille)
    szNomFichier = Application.GetSaveAsFilename( _
        InitialFilename:=ActiveSheet.Name, _
        FileFilter:='Classeur Excel (*.xls), *.xls')
    If szNomFichier <> False Then '''szNomFichier reçoit False si on a cliqué sur Annuler
        '''Création du nouveau classeur avec copie de la feuille active
        ActiveSheet.Copy
        With ActiveWorkbook
            '''Sauvegarde
            .SaveAs Filename:=szNomFichier, FileFormat:=xlNormal
            '''Fermeture
            .Close
        End With
    End If
End Sub