Option Explicit
Sub test()
Dim nom As String
Dim essai As String
Dim n As Integer
Dim cel As Range
nom = ThisWorkbook.Name
For Each cel In ActiveSheet.UsedRange
essai = essai & cel & ";"
Next cel
For n = Len(essai) To 2 Step -1
If Mid(essai, n, 1) = ";" And Mid(essai, n - 1, 1) = ";" Then
essai = Mid(essai, 1, n - 1) & Mid(essai, n + 1, Len(essai) - n)
End If
Next n
Workbooks.Add
ActiveSheet.Range("A1") = essai
ActiveWorkbook.SaveAs Filename:=nom & "-csv", FileFormat:=xlCSV
End Sub