Private Sub Workbook_Activate()
Dim chemin$, fichier$, col1%, col2%, P As Range, lig&, v As Variant
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.pdf") '1er fichier du dossier
col1 = 4 'colonne des ok
col2 = 5 'colonne des ok
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'pour la suppression de feuille
With [Tableau1] 'tableau structuré
Worksheets.Add Before:=Me.Sheets(1) 'nouvelle feuille auxiliaire
.Copy ActiveSheet.[A1] 'copie-colle le tableau
Set P = ActiveSheet.UsedRange
.Cells(1).Hyperlinks.Delete
Union(.Cells(1).Resize(, 2), .Cells(1, col1), .Cells(1, col2)).ClearContents 'RAZ de 4 cellules
.Rows(1).VerticalAlignment = xlCenter
If .Rows.Count > 1 Then .Rows(2).Resize(.Rows.Count - 1).Delete xlUp 'RAZ
While fichier <> ""
lig = lig + 1
.Cells(lig, 1) = fichier
.Cells(lig, 2) = CDate(Format(FileDateTime(chemin & fichier), "dd/mm/yyyy"))
v = Application.VLookup(fichier, P, col1, 0) 'RECHERCHEV
If Not IsError(v) Then .Cells(lig, col1) = v
v = Application.VLookup(fichier, P, col2, 0) 'RECHERCHEV
If Not IsError(v) Then .Cells(lig, col2) = v
.Hyperlinks.Add .Cells(lig, 1), Address:=chemin & fichier
fichier = Dir 'fichier suivant
Wend
Me.Sheets(1).Delete 'supprime la feuille auxiliaire
End With
End Sub