ChDir "C:\Users\EricCathy\Desktop\essais XL"
Workbooks.OpenText Filename:= _
"C:\Users\EricCathy\Desktop\essais XL\importTest.txt", Origin:=-535, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1 _
), Array(2, xlSkipColumn), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1)), TrailingMinusNumbers:=True
Columns("A:I").Select
Selection.Copy
Windows("Classeur1").Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("importTest.txt").Activate
ActiveWindow.Close