Sub Import()
Dim fichier$, f$, nlig&, ncol%
'---préparation---
fichier = ThisWorkbook.Path & "\Classeur_Source.xlsm" 'à adapter
f = "'" & fichier & "'!T"
nlig = ExecuteExcel4Macro("ROWS(" & f & ")")
ncol = ExecuteExcel4Macro("COLUMNS(" & f & ")")
'---restitution du tableau T en B9---
Application.ScreenUpdating = False
Range([B9], Cells(Rows.Count, Columns.Count)).ClearContents 'RAZ
With [B9].Resize(nlig, ncol)
.FormulaArray = "=" & f 'formule matricielle
.Value = .Value 'suppression des formules
.Replace 0, "", xlWhole 'suppression des zéros
End With
End Sub