Sub EntrerFormules()
Dim chemin$, fichier$, feuille$, cel$, plage$, ncol%
Dim debformule$, finformule$, lig&, fich$, num&, f$
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = "données" 'à adapter
feuille = "Test" 'à adapter
cel = "$B$4" 'à adapter
plage = "$B$28:$G$30" 'à adapter
ncol = Evaluate(plage).Columns.Count
debformule = "=IFERROR(VLOOKUP(D$1,"
finformule = plage & "," & ncol & ",0),0)"
lig = 2
fich = Dir(chemin & fichier & "*.xls*") '1er fichier
While fich <> ""
num = Val(Mid(fich, Len(fichier) + 1))
f = "'" & chemin & "[" & fich & "]" & feuille & num & "'!"
Cells(lig, 1) = "=" & f & cel
Cells(lig, 4).Resize(, 3) = debformule & f & finformule
fich = Dir 'fichier suivant
lig = lig + 1
Wend
End Sub