Sub Demiliteur()
ChDir 'C:\\'
Workbooks.OpenText Filename:= _
'Fichier1.TXT', Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:='!', FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
End Sub