VBA : Scinder classeur en fichiers séparés

Bonjour à tous,

Je cherche dans mon programme VBA a scinder un classeur excel en différents fichier excel dans le même dossier racine.

J'ai récupéré ce code sur internet, malheureusement, les feuilles auparavant enregistrées dans le classeur s'enregistrent correctement, mais celles nouvellement créées auparavant dans le code donne lieu à un fichier vide.

Quelqu'un arrive avec un œil neuf à me débloquer svp ?

    Dim xPath As String
    xPath = Application.ActiveWorkbook.Path
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each xWs In ThisWorkbook.Sheets
        xWs.Copy
        Application.ActiveWorkbook.SaveAs Filename:=xPath & "\EA_" & xWs.Name & ".xlsx"
        Application.ActiveWorkbook.Close False
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

Une bonne ame pour m'aider svp ?