Afficher un fichier excel selon la valeur d'une Listbox

Sub ListFilesInFolder(strFolderName As String, bIncludeSubfolders As Boolean)
'Activer la reference Microsoft Scripting RunTime
Static FSO As FileSystemObject
Dim oSourceFolder As Scripting.Folder
Dim oSubFolder As Scripting.Folder
Dim oFile As Scripting.File
Static wksDest As Worksheet
Static iRow As Long
Static bNotFirstTime As Boolean

[A1:A100].ClearContents

iRow = 2

If Not bNotFirstTime Then
    Set wksDest = ActiveSheet
    Set FSO = CreateObject("Scripting.FileSystemObject")
    bNotFirstTime = True
End If

Comp = wksDest.Range("F1")
Set oSourceFolder = FSO.GetFolder(strFolderName)
    For Each oFile In oSourceFolder.Files
        If oFile.Name Like "*" & Comp & "*" Then
        wksDest.Cells(iRow, 1) = oFile.Name
        iRow = iRow + 1
        End If
    Next oFile
    
End Sub

Sub Chemin()
    ListFilesInFolder "C:\MesFichiers", True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" And Target <> "" Then Chemin

End Sub