Sub Liaison1()
Dim chemin$, txt1$, txt2$, txt3$, tablo, i&, x$
chemin = [A1]
txt1 = "_report.xlsx]10. Quality KPI'!$G$2"
txt2 = "_report.xlsx]10. Quality KPI'!$I$58"
txt3 = "_report.xlsx]10. Quality KPI'!$K$30"
With [A3].CurrentRegion.Resize(, 5)
tablo = .Formula 'matrice, plus rapide
For i = 2 To UBound(tablo)
x = "='" & chemin & tablo(i, 1) & "\[" & tablo(i, 2)
tablo(i, 3) = x & txt1
tablo(i, 4) = x & txt2
tablo(i, 5) = x & txt3
Next
Application.DisplayAlerts = False
.Formula = tablo
End With
End Sub