Sub macro()
Open 'mon_fichier.txt' For Output As 1
Dim i As Integer, derniereligne As Integer
Sheets('COMPTA'Â'Â').Select
derniereligne = [a65536].End(xlUp).Row
For i = 1 To derniereligne
Print #1, Cells(i, 1).Value, Cells(i, 2).Value, Cells(i, 3).Value, Cells(i, 4), Cells(i, 5).Value, Cells(i, 6).Value, Chr(32)
for J = 1 to 6
if cells(i,J).value='#nothing#' then
cells(i,j).value=''
endif
next j
Next
Close
End Sub