Sub Macro4()
'
' Macro3 Macro
'
'
Workbooks.OpenText Filename:="C:\Users\user\User\essai.txt", Origin:= _
xlMSDOS, 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, 2), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
Columns("B:B").EntireColumn.AutoFit
End Sub