Insertion de nom de document dans un tableau sous condition VBA

Bonjour,

Je rencontre une difficulté avec mon code VBA :
Je voudrais pouvoir récupérer des noms de documents présents dans un dossier et un sous dossier en fonction des premiers caractères de ses éléments.
J'ai trouvé un moyen de tout récupérer mais je n'arrive pas à :
- soit supprimer les lignes que je ne veux pas
- soit faire un tri avant de tout copier

Voici mon code :

Sub ListFilesInFolder()
 
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
Dim R As String


Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("S:\DOSSIER\SousDossier\")
i = Range("nom1").Row
For Each oFile In oFolder.Files
    Cells(i, 1) = oFile.Name
    i = i + 1
Next oFile
 

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("S:\DOSSIER\")
i = Range("nom1").End(xlDown).Row
For Each oFile In oFolder.Files
    Cells(i, 1) = oFile.Name
    i = i + 1
Next oFile

End Sub

Quelqu'un pourrait m'aider ?
J'espère avoir été claire. Si ce n'est pas le cas, merci de me le signaler.

Cordialement,