Sub test()
Dim fichier$, CsvText$, x&, separator$
ActiveSheet.UsedRange.Copy
fichier = "C:\Users\polux\Desktop\monfichier.txt"
separator = ";"
CsvText = Replace(CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT"), vbTab, separator)
x = FreeFile
Open fichier For Output As #x
Print #x, CsvText
Close #x
Application.CutCopyMode = False
End Sub