Exporter onglet en csv

ThisWorkbook.SaveAs "H:\toto\RT_step" & "RT_Volumes_" & Format(Now, "dd-mm-yy hhnnss"), xlCSVWindows, local:=True

Option Explicit
Const vPth$ = "H:\toto"
Const vShNm$ = "blabla"

Sub SaveAsCsv()
    Call XlsToCsv(vShNm, False, vPth)
    Unload UserForm1
End Sub

Private Sub XlsToCsv(vSFN As String, b As Boolean, sPth As String)
'entrées: nom de la feuille, delete de la feuille?, chemin du dossier (avec \ final)
Dim x$, i&, j%, Cl%, Rw&
Rw = Worksheets(vSFN).UsedRange.Rows.Count
Cl = Worksheets(vSFN).UsedRange.Columns.Count
Open sPth & vSFN & ".csv" For Output As #1
For i = 1 To Rw
    x = ""
    For j = 1 To Cl
        x = x & Worksheets(vSFN).Cells(i, j).Value & ";"
    Next j
    Print #1, x
Next i
Close #1
If b = True Then
    Application.DisplayAlerts = False
    Worksheets(vSFN).Delete
    Application.DisplayAlerts = True
End If
End Sub

Sheets("blabla").Select