copier feuille dans un nouveau fichier et l'enregistrer en .csv

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