Option Explicit
Sub Tst()
Application.ScreenUpdating = False
Workbooks.Add
ThisWorkbook.Sheets("Feuil1").UsedRange.Copy Range("A1")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "Classeur2.csv", FileFormat:= _
xlCSV, local:=True
ActiveWindow.Close
With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub