Private Sub CommandButton1_Click()
Dim newWbk As Workbook, chemin As String
chemin = "E:\aMiki\XLS\test\" & Feuil1.[i3] & "_" & Format(Now, "dd-mm-yyyy") & ".xls"
Set newWbk = Application.Workbooks.Add(xlWBATWorksheet)
Application.DisplayAlerts = False
ThisWorkbook.Sheets("Feuil1").Cells.Copy
newWbk.Sheets(1).Range("A1").PasteSpecial (xlPasteFormats)
newWbk.Sheets(1).Range("A1").PasteSpecial (xlPasteValuesAndNumberFormats)
newWbk.Sheets(1).Range("A1").PasteSpecial (xlPasteColumnWidths)
Application.DisplayAlerts = True
newWbk.SaveAs chemin
newWbk.Close False
End Sub