Sub Recuperation()
Dim chemin$, txt1$, txt2$, txt3$, tablo, resu, i&, test As Boolean, x$
chemin = [A1]
txt1 = "]10. Quality KPI'!$G$2"
txt2 = "]10. Quality KPI'!$H$2"
txt3 = "]10. Quality KPI'!$I$2"
tablo = [A3].CurrentRegion.Resize(, 4) 'matrice, plus rapide
With [A3].CurrentRegion.Columns(5).Resize(, 4)
resu = .Formula 'matrice, plus rapide
For i = 2 To UBound(tablo)
test = IsDate(tablo(i, 1))
x = "='" & chemin & tablo(i, 2) & "\[" & tablo(i, 4)
resu(i, 1) = IIf(test, x & txt1, "")
resu(i, 3) = IIf(test, x & txt2, "")
resu(i, 4) = IIf(test, x & txt3, "")
Next
Application.DisplayAlerts = False
.Formula = resu 'restitution
End With
End Sub