Excel plante...

Bonjour à toutes et à tous,

J'ai, pour mon travail, un fichier excel "strNomNouveauClasseur" (qui contient la macro) et dans lequel je dois importer des données qui se trouvent dans un autre fichier "strNomAncienClasseur". La macro fonctionne nickel, je peux ensuite continuer de travailler sans aucun souci sur mon classeur, mais dès que j'essaie de le sauvegarder, Excel plante.

Comme la macro marchait parfaitement, un débogage simple n'avait aucun intérêt. J'ai donc tenté d'insérer une fonction de sauvegarde de plus en plus loin dans mon code afin de voir quelle étape faisait planter Excel. Voici l'étape où ça plante :

Sub Importer_ancien_classeur()
' Permet d'importer les données

    MsgBox "L'importation va commencer, veuillez patienter pendant que votre ordinateur fait le travail", vbOKOnly, "Début de l'importation"
    
    Dim strNomAncienClasseur As String, strNomNouveauClasseur As String
    strNomAncienClasseur = Worksheets("importation").Range("n14")
    strNomNouveauClasseur = ActiveWorkbook.Name
            
    ' Ouvrir l'ancien classeur
    Workbooks.Open (ThisWorkbook.Path & "\" & strNomAncienClasseur)
    
    ' Supprimer les feuilles dans le nouveau classeur
    With Workbooks(strNomNouveauClasseur)
        Application.DisplayAlerts = False
        .Worksheets("database").Delete
        Application.DisplayAlerts = True
    End With
    
    ' Importer les feuilles de l'ancien classeur
    Workbooks(strNomAncienClasseur).Worksheets("database").Copy after:= _
            Workbooks(strNomNouveauClasseur).Sheets(1)
    
    ' --------------------------------------------------
    ' Sauvegarde test
    Application.DisplayAlerts = False
    Workbooks(strNomNouveauClasseur).Save
    Application.DisplayAlerts = True
    ' --------------------------------------------------

A mon (humble) avis, ça serait donc la copie de la feuille de l'ancien vers le nouveau classeur.

Si par miracle / hasard l'un(e) d'entre vous a la réponse, ou au moins une idée, je suis preneur avec grand bonheur :D

Cheers !