Sub Bilan()
Dim Dossier$, NomFeuille$, Fichier$, lig&, v1 As Variant, v2 As Variant
Dossier = ThisWorkbook.Path & "\MonDossier\" 'à adapter
NomFeuille = "Feuil1" 'à adapter
Fichier = Dir(Dossier & "*.xlsx") '1er fichier du dossier
lig = Application.CountA([A:A])
Application.ScreenUpdating = False
While Fichier <> ""
lig = lig + 1
Cells(lig, 1) = Environ("UserName")
Cells(lig, 2) = Now
Cells(lig, 3) = Fichier
v1 = ExecuteExcel4Macro("MATCH(""zzz"",'" & Dossier & "[" & Fichier & "]" & NomFeuille & "'!C1)")
If IsError(v1) Then v1 = 0
v2 = ExecuteExcel4Macro("MATCH(9^99,'" & Dossier & "[" & Fichier & "]" & NomFeuille & "'!C1)")
If IsError(v2) Then v2 = 0
Cells(lig, 4) = IIf(v1 > v2, v1, v2)
Fichier = Dir
Wend
End Sub