Comparer liste excel avec des fichiers

Function Fichiers(Chemin As String, Titre As String, Exact As Boolean) As String()

    Dim TableauFichiers() As String
    Dim Fichier As String
    Dim Fich As String
    Dim I As Integer
    
    Fich = IIf(Exact = True, Chemin & Titre, Chemin & "*" & Titre & "*")
    'boucle dans le dossier à la recherche des fichiers
    Fichier = Dir(Fich)
    
    Do While (Len(Fichier) > 0)
    
        I = I + 1
        ReDim Preserve TableauFichiers(1 To I)
        TableauFichiers(I) = Fichier
        Fichier = Dir()
        
    Loop
    
    Fichiers = TableauFichiers()

End Function

Sub Test()

    Dim Tbl() As String
    Dim I As Integer
    
    'arguments, -1 chemin du dossier, -2 titre du fichier, -3 False pour une recherche approximative et True pour une recherche exacte
    Tbl = Fichiers("D:\Titres de Films\", "Maison", False)
    
    On Error Resume Next
    
    'inscrit le ou les résultats dans la fenêtre d'exécution
    For I = 1 To UBound(Tbl)
    
        Debug.Print Tbl(I)
    
    Next I
    
    'si pas trouvé, une erreur est produite par le tableau non initialisé
    If Err.Number <> 0 Then
        
        MsgBox "Fichier introuvable !"
        
    End If
    
End Sub