<pre data-code-wrap="vba"><code class="lang-vba">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
</code></pre>
