Sub Macro1()
Workbooks.OpenText Filename:="C:\Chemin\toho-exemple.txt", _
Origin:=xlMSDOS, StartRow:=10, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 4), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True, local:=True
End Sub