VB sous excel, enregister une feuille du clas

Dim wk As Workbook
Dim ws As Worksheet

    'Déclare une feuille à l'ouverture d'Excel
    Application.SheetsInNewWorkbook = 1
    'Créer un classeur avec 1 feuille
    Set wk = Workbooks.Add
    'Remet l'application Excel dans son état initial
    Application.SheetsInNewWorkbook = 3
    
    'Déclare un objet worksheet
    Set ws = wk.Worksheets(1)
    'Affecte la valeur de la cellule A1 comme nom de feuille
    ws.Name = ThisWorkbook.Worksheets(1).Range("A1").Value
    'Sauvegarde le nouveau classeur
    wk.Save SaveChanges:=True
    'Pour donner un nom au classeur faire : wk.SaveAs ("C:\monclasseur.xls")
    'Libère les objets
    Set wk = Nothing
    Set ws = Nothing