Sub MAJ()
Dim F As Worksheet, chemin$, fichier$, feuille$, a(), n&, x$
Set F = Feuil1 'CodeName, à adapter
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = Dir(chemin & "*.xlsx") '1er fichier .xlsx du dossier
feuille = "MaFeuille" 'à adapter
ReDim a(1 To F.Rows.Count, 1 To 3)
'---analyse du dossier---
While fichier <> ""
n = n + 1
a(n, 1) = fichier
x = "'" & chemin & "[" & fichier & "]" & feuille
a(n, 2) = ExecuteExcel4Macro(x & "'!R5C7"): If a(n, 2) = 0 Then a(n, 2) = ""
a(n, 3) = ExecuteExcel4Macro(x & "'!R5C9"): If a(n, 3) = 0 Then a(n, 3) = ""
fichier = Dir 'fichier suivant du dossier
Wend
'---restitution---
If F.FilterMode Then F.ShowAllData 'si la feuille est filtrée
With F.[A2] '1ère cellule de restitution, à adapter
If n Then .Resize(n, 3) = a
.Offset(n).Resize(F.Rows.Count - n - .Row + 1, 3).ClearContents 'RAZ en dessous
.EntireColumn.Resize(, 3).AutoFit 'ajustement largeurs
End With
With F.UsedRange: End With 'actualise la barre de défilement verticale
End Sub