Sub Test()
fich = "Repertoire...\Tmax-GCM-Agadir-A2.txt"
Workbooks.OpenText Filename:= _
fich, Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array _
(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array( _
10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), _
Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1)), _
TrailingMinusNumbers:=True
Set wbf = ActiveWorkbook.Worksheets(1)
Set r = wbf.UsedRange
t = r.Value
wbf.Cells(r.Row, r.Column).Resize(UBound(t, 1), UBound(t, 2)).Value = t