Sub Import2()
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
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
' Debug.Print form & P(col).Address(, , xlR1C1) 'formule de liaison
resu(n, col) = ExecuteExcel4Macro(form & P(col).Address(, , xlR1C1)) 'formule de liaison
Next
End If
fichier = Dir 'fichier suivant
Wend
Application.ScreenUpdating = False
If n Then
With Feuil1.[c1].Resize(n, ncol)
.Resize(.Parent.UsedRange.Rows.Count).Clear
.Value = resu
.Interior.Color = vbYellow
.Borders.Weight = xlHairline 'bordures
.EntireColumn.AutoFit
End With
End If
End Sub