Sub Test_export_Unicode_Dos()
Sheets("Feuil1").Select
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:="C:\test\Texte unicode.txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="C:\test\Texte DOS.txt", _
FileFormat:=xlTextMSDOS, CreateBackup:=False
ActiveWindow.Close
End Sub