XL 2016 Récupérer donnée d'une cellule d'un autre fichier sans l'ouvrir

Sub LireFichierFermé()
Dim Fichiersource As String
Dim Cheminsource As String
Dim Formule As String
  Cheminsource = "I:\G_AMEC\ETAT AMEC2\Etat AMEC 2 \"
  Fichiersource = "Etat AMEC 2 (version 2).xlsm"
  Formule = "='" & Cheminsource & "[" & Fichiersource & "]calculs'!H9"
  With Worksheets("RECAP").Range("F49")
    .Value = Formule
    .Value = .Value
  End With
End Sub

   Dim Fichiersource As String
    Dim Cheminsource As String
    'Dim Formule As String
    Dim Arg As String
    Cheminsource = "I:\G_AMEC\ETAT AMEC2\Etat AMEC 2 \"
    Fichiersource = "Etat AMEC 2 (version 2).xlsm"
    'Formule = "='" & Cheminsource & "[" & Fichiersource & "]calculs'!H9"
        cellule = Range("H9").Address(, , xlR1C1)    'conversion address en R1C1
    'construit l'argumentation
    Arg = "'" & Cheminsource & "[" & Fichiersource & "]calculs'!" & cellule
    With Worksheets("RECAP").Range("F49")
        .Value = Application.ExecuteExcel4Macro(Arg)
        '.Value = Formule
        '.Value = .Value
    End With
End Sub

Sub test()
    Dim chemin$, fichier$, feuille$, cellule As Range
    chemin = "C:\Users\polux\Desktop"
    fichier = "hhhhhtml.xls"
    feuille = "Feuil1"
    Set cellule = Range("c4")
    MsgBox GetVal_on_closed_fich(chemin, fichier, feuille, cellule)
End Sub

Function GetVal_on_closed_fich(ByVal chemin As String, ByVal fichier As String, ByVal feuille As String, cel As Range) As String
    Dim Rc$
    Rc = "R" & cel.Row & "C" & cel.Column
    GetVal_on_closed_fich = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]" & feuille & "'!" & Rc)
End Function