Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 08/10/2007
'
'
Workbooks.OpenText Filename:="C:\Mes documents\test.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
1), Array(8, 1), Array(72, 1), Array(74, 1))
ActiveWorkbook.SaveAs Filename:="C:\Mes documents\test.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub