Exporter vers un nouveau classeur

Private Sub CommandButton1_Click()    'exporter
    Dim iSheets As Integer, Chemin As String, Nom As String
    Chemin = "D:\download\"
    Nom = "ExportDu" & Format(Date, "dd-mm-yyyy") & ".xls"
    iSheets = Application.SheetsInNewWorkbook
    Application.SheetsInNewWorkbook = 1
    Workbooks.Add
    Application.SheetsInNewWorkbook = iSheets
    With ActiveWorkbook.Worksheets("feuil1")
        .Range(.Cells(1, 1), .Cells(FormuleTableau.ListCount, FormuleTableau.ColumnCount)).Value = FormuleTableau.List
        .SaveAs Filename:=Chemin & Nom
    End With

    ActiveWorkbook.Close    ' SaveChanges:=True
    Unload UserForm1

End Sub