Enregistrer feuille par feuille

Sub feuilles_en_classeur()
Dim feuille As Worksheet
Dim enregistrement, path, nomfeuille As String

path = ActiveWorkbook.path & "\"

For Each feuille In ActiveWorkbook.Sheets

nomfeuille = feuille.Name

    feuille.Select
    feuille.Copy
    ChDir path
    enregistrement = path & nomfeuille & ".xlsx"
    ActiveWorkbook.SaveAs Filename:=enregistrement, FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close

Next
End Sub