Il vous suffit "d'exporter sous" votre onglet au format .csv. Néanmoins, le séparateur de champs devrait être le ";". Si vous tenez à avoir une extension txt à votre fichier, vous remplacez "csv" par "txt" une fois le csv créé.
Une macro issue de la nuit des temps. Elle lit la feuille active ét écrit le fichier csv :
Sub test()
Dim Enrgt
Close #1
Open "aaa.csv" For Output As #1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Enrgt = ""
For Each c In Range(Cells(i, 1), Cells(i, Columns.Count).End(xlToLeft))
Enrgt = Enrgt & ";" & c
Next c
Enrgt = Right(Enrgt, Len(Enrgt) - 1)
Print #1, Enrgt
Next i
Close #1
End Sub