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