Sub Export()
Application.ScreenUpdating = False
Sheets("feuil1").Activate
Columns("A:A").Copy
Workbooks.Add
Range("A1").PasteSpecial xlPasteValues
On Error Resume Next
Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Delete
On Error GoTo 0
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="toto.txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub