Code VBA pour sauvegarder dans un autre fichier EXCEL

Sub Test()
Dim newWbk As Workbook, feuilCal As Worksheet, pathMesDocuments As String, nomNewClasseur As String

    'définir le chemin de MesDocuments
    pathMesDocuments = "E:\aMiki\XLS\test"
    
    'définir la feuille à copier
    Set feuilCal = ThisWorkbook.Sheets("Calendrier")
    
    'créer un nouveau classeur avec une seulle feuille
    Set newWbk = Application.Workbooks.Add(xlWBATWorksheet)
    
    'copier les cellules de la feuille "Calendrier"
    feuilCal.Cells.Copy
    
    'coller les valeurs dans le nouveau classeur, puis les formats, puis les largeurs de colonnes
    newWbk.Sheets(1).Range("A1").PasteSpecial xlPasteValues
    newWbk.Sheets(1).Range("A1").PasteSpecial xlPasteFormats
    newWbk.Sheets(1).Range("A1").PasteSpecial xlPasteColumnWidths
    Application.CutCopyMode = False
    
    'récupérer le nom à donner au nouveau classeur
    nomNewClasseur = InputBox("Nom du nouveau classeur :")
    
    'sauvegarder le classeur et le fermer
    newWbk.SaveAs pathMesDocuments & "\" & nomNewClasseur & ".xls"
    newWbk.Close
    
End Sub