Public Const separator As String = ";"
Sub exportCsv()
Dim myFso
Dim csvFile
Dim csvFileName As String, curRow As Integer, curColumn As Integer, csvLine As String
csvFileName = Application.GetSaveAsFilename(FileFilter:="CSF File, *.csv")
Set myFso = CreateObject("Scripting.FileSystemObject")
Set csvFile = myFso.CreateTextFile(csvFileName)
With ThisWorkbook.Sheets("Feuil1")
For curRow = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row
csvLine = vbNullString
For curColumn = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Column
csvLine = csvLine & IIf(csvLine = vbNullString, vbNullString, separator) & .Cells(curRow, curColumn).Text
Next curColumn
csvFile.WriteLine csvLine
Next curRow
End With
csvFile.Close
Set csvFile = Nothing
Set myFso = Nothing
End Sub