Private Sub Worksheet_Change(ByVal Target As Range)
Dim chemin$, fichier$, feuille$, plage$, dest As Range
chemin = ThisWorkbook.Path & "\"
fichier = [C4]
feuille = [A4]
plage = "F15:G26"
Set dest = [B7]
Application.EnableEvents = False
On Error Resume Next
dest.Resize(Range(plage).Rows.Count, Range(plage).Columns.Count).FormulaArray = _
"=IFERROR('" & chemin & "[" & fichier & "]" & feuille & "'!" & plage & ","""")"
Application.EnableEvents = True
End Sub