Enregistrer chaque feuille d'un classeur dans des fichiers CSV séparés

Microsoft 365 & Office Excel & VBA
1

Comment enregistrer chaque feuille d’un classeur Excel dans un fichier CSV séparé ?

2 
Sub ExporterFeuilllesEnCSV()
    Dim ws As Worksheet
    Dim chemin As String
    chemin = ThisWorkbook.Path & "\"
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Copy
        ActiveWorkbook.SaveAs chemin & ws.Name & ".csv", xlCSV
        ActiveWorkbook.Close False
    Next ws
End Sub