Sub Macro11()
'
' Macro1 Macro
' Macro enregistrée le 23/07/2011 par EXCEL
'
Dim s_wb As Workbook
Workbooks.OpenText Filename:="C:\test.txt", _
Origin:=xlWindows, StartRow:=2, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Set s_wb = ActiveWorkbook
s_wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).Range("A1")
s_wb.Close False
End Sub