Sub Macro3()
'
' Macro3 Macro
'
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\fleuryj\Mes documents\Jennifer\Suivi budgétaire\01.txt" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(8, 1), Array(11, 1), Array(31, 1), Array(32, 1), Array(33, 1), _
Array(35, 1), Array(52, 1), Array(53, 1), Array(70, 1), Array(71, 1), Array(88, 1), Array( _
89, 1), Array(106, 1), Array(107, 1), Array(124, 1), Array(125, 1), Array(142, 1), Array( _
143, 1), Array(151, 1), Array(154, 1), Array(174, 1), Array(175, 1), Array(189, 1), Array( _
191, 1)), TrailingMinusNumbers:=True
Cells.Select
Selection.Copy
Windows("SUIVI BUDGETAIRE.xls").Activate
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
End Sub