Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 29/07/2012 par Staple1600
'
Dim MonPaf$, SRC As Workbook, DST As Workbook
MonPaf = "C:\Temp\"
Set DST = ThisWorkbook
Workbooks.OpenText Filename:=MonPaf & "fruitsLegume.txt" _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
Set SRC = ActiveWorkbook
SRC.Sheets(1).UsedRange.Copy DST.Sheets(1).Cells(65536, 1).End(xlUp)(2)
SRC.Close False
End Sub