XL 2013 fermer et ouvrir des classeurs

Sub Save_As()
Application.DisplayAlerts = False 'si le fichier a déjà été créé
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & [AL4].Value, 52 '52 = extension .xlsm'

    If MsgBox("Un nouveau fichier a été créé,nommé :" & NOM_NOUVEAU_CLASSEUR & Chr(10) & Chr(10) & [AL4] & Chr(10) & Chr(10) & "Etes-vous certain de vouloir quiter ce classeur ?", vbYesNo, "Demande de confirmation") = vbYes Then
       
        Dim Nouveau_Fichier as workbook
        Dim Nom_Nouveau_Fichier as String
        Dim wb As Workbook
        For Each wb In Workbooks 'boucle sur tous les classeurs ouverts
        wb.Close True 'fermeture du classeur avec sauvegarde
        Next
        Set Nouveau_Fichier = Workbooks.Open("Burx Type.xlsm")

        Nom_Nouveau_Fichier=Nouveau_Fichier.Name        'Facultatif
    End If

End Sub