Sub Macro1()
' ChDir 'C:\\bloc-notes'
Workbooks.OpenText Filename:='C:\\bloc-notes\\transfert.txt', Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
'----------------
Windows('transfert.txt').Activate
Range('A1').Select
Selection.Copy
Windows('Classeur1.xls').Activate
Range('A1').Select
ActiveSheet.Paste
End Sub