Sub Remplir()
Dim FichierCourant$, DossierCourant$, CheminFichier$, Ligne%, i%, Lw%, Conformité$, DateMax
[A8:C1000].ClearContents
Application.ScreenUpdating = False
FichierCourant = ThisWorkbook.Name
DossierCourant = ThisWorkbook.Path & "\"
i = 0: Lw = 8
Fichier = Dir(DossierCourant)
Do While Fichier <> ""
i = i + 1
CheminFichier = DossierCourant & Fichier
If Fichier <> FichierCourant Then
Workbooks.Open Filename:=CheminFichier
DateMax = Application.Max([B:B])
Ligne = Application.Match(DateMax, [B:B], 0)
If Cells(Ligne, "I") = "Conforme" Then Conformité = "OK" Else Conformité = "Not OK"
Workbooks(Fichier).Close SaveChanges:=False
NomFichier = Fichier
Cells(Lw, "A") = Mid(NomFichier, 1, Len(NomFichier) - 5)
Cells(Lw, "B") = Format(DateMax, "dd/mm/yyyy")
Cells(Lw, "C") = Conformité
Lw = Lw + 1
End If
Fichier = Dir
Loop
End Sub