Enregistrer chaque feuille de calcul dans un autre fichier

Sub Exporte()
    Chemin = ActiveWorkbook.Path
    ' Calcul du nombre de feuilles à expédier
    NbSheets = ActiveWorkbook.Sheets.Count
    For i = 1 To NbSheets
        Sheets(i).Activate
        ' Chaque feuille est exportée individuellement
        Sheets(i).Copy
        LeNom = ActiveSheet.Name
        ActiveWorkbook.SaveAs Filename:=Chemin & "\" & LeNom & ".xls", FileFormat:=xlNormal, Password:="", _
                              WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
        ActiveWorkbook.Close savechanges:=False
    Next i
    Sheets(1).Activate
End Sub