Bonjour,
tu as essayé avec l'enregistreur de macro ?
P.
Workbooks.OpenText Filename:="ton répertoire..........\BD.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, 2), _
Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True