XL 2016 lien vers une cellule dans un fichier externe à partir d'une cellule contenant le nom du fichier

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

Sub test()
    MsgBox GetVal_on_closed_fich("C:\Users\polux\DeskTop\", "cible.xlsx", "Feuil1", [B4].Value)
End Sub

Sub test_import_valeur_V2()
'
' test_import_valeur_V2 Macro
'

'
    ActiveCell.Offset(0, -2).Range("A1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Windows("TEST_RECAP.xlsx").Activate
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=[FH_2019_AT01.xlsx]DATA!R5C[8]"
    ActiveCell.Select
    Selection.AutoFill Destination:=ActiveCell.Range("A1:BB1"), Type:= _
        xlFillDefault
    ActiveCell.Range("A1:BB1").Select
End Sub

Sub test()
    Application.ScreenUpdating = False
    dossier = ThisWorkbook.Path'remplace ici par  le chemin de ton dossier si les fichier ne sont pas dans le même dossier que recap
    For i = 4 To Cells(Rows.Count, "A").End(xlUp).Row
        fichier = Cells(i, "B")
        Set plage1 = Range(Cells(i, "D"), Cells(i, "BE"))
        Set plage2 = Range("L5:BM5")    'plage source
        For c = 1 To plage1.Columns.Count
            Set cel = plage2.Cells(c)
            Rc = "R" & cel.Row & "C" & cel.Column
            plage1.Cells(c).Formula = "='" & dossier & "\[" & fichier & "]DATA'!" & Rc
        Next c
        plage1.Value = plage1.Value
    Next i
End Sub