comment récupérer une plage de variables d'un fichier fermé

Sub essai_pmo()
Dim tablo()
Dim i&
Dim j&
Dim S As Worksheet
Dim R As Range
ReDim tablo(1 To 45, 2 To 5)
For i& = 1 To 45
  For j& = 2 To 5
      '---(vérifiez bien les noms du classeur et de la feuille) ---
    tablo(i&, j&) = Application.ExecuteExcel4Macro("'C:\Chemin\[FichierFermé.xls]feuille'" & _
        "!R" & i& & "C" & j& & ":R" & i& & "C" & j& & "")
  Next j&
Next i&
Sheets.Add
Set S = ActiveSheet
Set R = S.Range(S.Cells(LBound(tablo, 1), LBound(tablo, 2)), S.Cells(UBound(tablo, 1), (UBound(tablo, 2))))
R = tablo
End Sub