Private Sub UserForm_Initialize()
Dim d As Object, h As Hyperlink, n&
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = Dir(chemin & "*.*")
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
If Not ActiveSheet.Hyperlinks Is Nothing Then
For Each h In ActiveSheet.Hyperlinks 'liste les adresses
If h.Parent.Column = 3 Then _
d(IIf(InStr(h.Address, "\"), "", ThisWorkbook.Path & "\") & h.Address) = ""
Next
End If
While fichier <> ""
If Not d.exists(chemin & fichier) Then ListBox1.AddItem fichier: n = n + 1
fichier = Dir
Wend
Label1 = n & " fichier(s)"
Me.Width = 214
End Sub