recherche du contenu d'une cellule dans l'explorateur windows

Sub Rechercher_et_Ouvrir_Fichier_correspondant_selection()

With Application.FileSearch 'appel de l'aplication de recherche de fichier
.NewSearch
.LookIn = "C:\WINDOWS\Bureau\Nouveau dossier" 'dossier de recherche des fichier
.SearchSubFolders = False 'recherche dans les sous dossier true false
.Filename = Selection.Offset(0, -1) & Selection & "*" 'nom du fichier ici le nom du fichier est composé de "la cellule à gauche de la cellule sélectionnée" ET de la "cellule sélectionnée" ET du caractère générique "*"


If .Execute(SortBy:=msoSortByLastModified, SortOrder:=msoSortOrderDescending) = 0 Then 'présentation d'une boite de message si la recherche ne retourne pas de résultat
MsgBox "pas de fichier correspondant à " & Selection.Offset(0, -1) & Selection & "*"
End If

If .Execute(SortBy:=msoSortByLastModified, SortOrder:=msoSortOrderDescending) > 0 Then 'si la recherche retourne des résultats
For i1 = 1 To .FoundFiles.Count 'de 1 au nombre de fichier trouvés
Workbooks.Open (.FoundFiles(i1)) 'ouverture des fichier trouvés
Next i1
End If

End With
End Sub

Sub Rechercher_et_Ouvrir_Fichier_correspondant_selection()
    Dim ref As Integer 'défini "ref" comme nombre
    ref = 2 - ActiveCell.Column 'permet le choix de la colone de l'offset. exemple colone B = 2 (numéro colone de la cellule active - 2)

With Application.FileSearch 'appel de l'aplication de recherche de fichier
    .NewSearch
    .LookIn = "C:\WINDOWS\Bureau\Documentation\" 'dossier de recherche des fichier
    .SearchSubFolders = True 'recherche dans les sous dossier true false
    .Filename = ActiveCell.Text & Selection.Offset(0, ref) & ".*" 'nom du fichier
        'ICI :le nom du fichier est le texte de la cellule active
        '+ le contenu de la cellule de la meme ligne mais de la colone b

    If .Execute(SortBy:=msoSortByLastModified, SortOrder:=msoSortOrderDescending) = 0 Then 'présentation d'une boite de message si la recherche ne retourne pas de résultat
    MsgBox "pas de fichier correspondant à " & ActiveCell.Text & Selection.Offset(0, ref) & ".*"
    End If

    If .Execute(SortBy:=msoSortByLastModified, SortOrder:=msoSortOrderDescending) > 0 Then 'si la recherche retourne des résultats
    For i1 = 1 To .FoundFiles.Count 'recherche de tous les fichiers correspondant aux critères
    Shell "explorer.exe " & (.FoundFiles(i1)) 'ouverture des fichier trouvés quelque soit le type de fichier
    Next i1
    End If

End With
End Sub