Sheets("PLAN donnée").Activate
Range("W1:W200").Copy
Workbooks.Add
Range("A1").PasteSpecial xlPasteValues
ChDir "\\INFORMATION"
ActiveWorkbook.SaveAs Filename:="\\INFORMATION\Toto_PLAN.txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False