Sub CopierFichiersFermés()
Dim chemin$, w As Worksheet, feuil$, P As Range, ncol As Byte
Dim fichier$, lig&, rest(), col As Byte, c As Range, a$, f$
chemin = ThisWorkbook.Path & "\"
Set w = Feuil2 'CodeName de la feuille Synthèse
feuil = "Feuil1" 'nom à adapter
Set P = [A30,F30,A32,F32,F36:F37,F39,F41:F42,F44,C47:F66]
ncol = P.Count + 1
fichier = Dir(chemin & "*.xls*") '1er fichier du dossier
While fichier <> ""
If fichier <> ThisWorkbook.Name Then
lig = lig + 1
ReDim Preserve rest(1 To ncol, 1 To lig)
col = 1
For Each c In P
a = c.Address(ReferenceStyle:=xlR1C1)
f = "'" & chemin & "[" & fichier & "]" & feuil & "'!" & a
rest(col, lig) = ExecuteExcel4Macro(f)
col = col + 1
Next
rest(col, lig) = fichier 'nom du fichier en colonne 91
End If
fichier = Dir 'fichier suivant du dossier
Wend
'---restitution---
If lig Then w.[A2].Resize(lig, ncol) = Application.Transpose(rest)
w.Rows(lig + 2 & ":" & w.Rows.Count).Delete
w.Activate
End Sub