XL 2019 Rechercher un fichier dans plusieurs répertoires

Private Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH = 260


Private Function trouve(R As String, F As String, Ext As Variant) As String
    Dim T As String, resu As Long
    T = String(MAX_PATH, 0)
    For i = LBound(Ext) To UBound(Ext)
        F1 = F & Ext(i)
        resu = SearchTreeForFile(R, F1, T)
        If resu <> 0 Then
            trouve = Left$(T, InStr(1, T, Chr$(0)) - 1): Exit Function
        End If
    Next

End Function
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim MyFich$
    If Target.Column = 1 And Target.Count = 1 And Target.Value <> Empty Then
        Dim repertoire As String, fichier As String
        repertoire = "C:\Résultats\"
        fichier = Target.Text
        MsgBox trouve(repertoire, fichier, Array(".xls", ".xlsx", ".xlsm"))
    End If
End Sub    '

#If Win64 Then
    Private Declare PtrSafe Function FindClose Lib "kernel32" _
            (ByVal hFindFile As LongPtr) As Long
    Private Declare PtrSafe Function FindFirstFile Lib "kernel32" _
            Alias "FindFirstFileA" _
            (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As LongPtr
    Private Declare PtrSafe Function FindNextFile Lib "kernel32" _
            Alias "FindNextFileA" _
            (ByVal hFindFile As LongPtr, lpFindFileData As WIN32_FIND_DATA) As Long
    Private Declare PtrSafe Function lstrlen Lib "kernel32" Alias "lstrlenW" _
            (ByVal lpString As LongPtr) As Long
    Private Declare PtrSafe Function PathMatchSpec Lib "shlwapi" _
            Alias "PathMatchSpecW" _
            (ByVal pszFileParam As LongPtr, ByVal pszSpec As LongPtr) As LongPtr
#Else
....

Private Sub SearchForFiles(sRoot As String)
Dim WFD As WIN32_FIND_DATA
#If Win64 Then
    Dim hFile As LongPtr
#Else
    Dim hFile As Long
#End If
....
......