Sub Import()
Dim chemin$, fichier$, feuille$, P As Range, ncol%, resu$(), n&, form$, col%
chemin = ThisWorkbook.Path & "\" 'dossier à adapter
fichier = Dir(chemin & "F*.xlsx") '1er fichier du dossier
feuille = "Infos" 'nom des feuilles sources, à adapter
Set P = [B2:AZ2] 'plage à copier
ncol = P.Count
With Feuil1 'CodeName, à adapter
ReDim resu(1 To .Rows.Count, 1 To ncol) 'tableau VBA, plus rapide
While fichier <> ""
If UCase(fichier) Like "F###*" Then
n = n + 1
form = "='" & chemin & "[" & fichier & "]" & feuille & "'!"
For col = 1 To ncol
resu(n, col) = form & P(col).Address 'formule de liaison
Next
End If
fichier = Dir 'fichier suivant
Wend
'---restitution---
Application.ScreenUpdating = False
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .[C1] '1ère cellule de destination, à adapter
If n Then
With .Resize(n, ncol)
.Formula = resu
.Value = .Value 'supprime les formules
.Replace 0, "", xlWhole 'supprime les zéros
.Interior.ColorIndex = 6 'jaune
.Borders.Weight = xlHairline 'bordures
End With
End If
.Offset(n).Resize(.Parent.Rows.Count - n - .Row + 1, ncol).Delete xlUp 'RAZ en dessous
.Resize(, ncol).EntireColumn.AutoFit 'ajuste les largeurs
End With
With .UsedRange: End With 'actualise la barre de défilement verticale
End With
End Sub