ChDir "C:\Documents and Settings\Annie\Mes documents\Projet\AdminTsm\ListeNodes"
Workbooks.OpenText Filename:="C:\Documents and Settings\Annie\Mes documents\ _
Projet\AdminTsm\ListeNodes\ListeServeurs.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), _
Array(8, 1), Array(18, 1), Array(38, 1))
Rows("1:2").Select
Selection.Delete Shift:=xlUp
Cells.Select
Cells.EntireColumn.AutoFit
Columns("A:C").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Annie\Mes documents\ _
Projet\AdminTsm\ListeServeurs.txt", FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=True