Vba Boucle sur un repertoire uniquement sur fichiers commençant par un certain mot

Sub TousFichiersDunDossier()
    Dim fso As Object, Dossier As Object, NomDossier
    Dim Files As Object, File As Object, i As Integer

    Set fso = CreateObject("Scripting.FileSystemObject")
    NomDossier = ChoisirDossier
    If NomDossier = "" Then Exit Sub
    Set Dossier = fso.GetFolder(NomDossier)

    Set Files = Dossier.Files
    If Files.Count <> 0 Then
        Sheets.Add    'ajoute une feuille
        For Each File In Files
            '            ActiveSheet.Cells(i, 1).Value = File.Path
            If UCase(Left(File.Name, 5)) = UCase("copie") Then
                i = i + 1
                ActiveSheet.Cells(i, 2).Value = File.Name
            End If
        Next
    End If
End Sub

Function ChoisirDossier()
    Dim objShell, objFolder, chemin, SecuriteSlash

    Set objShell = CreateObject("Shell.Application")
    Set objFolder = _
    objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)
    On Error Resume Next
    chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
    If objFolder.Title = "Bureau" Then
        chemin = "C:\Windows\Bureau"
    End If
    If objFolder.Title = "" Then
        chemin = ""
    End If

    SecuriteSlash = InStr(objFolder.Title, ":")

    If SecuriteSlash > 0 Then
        chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
    End If
    ChoisirDossier = chemin
End Function

R = "C:\"
F = Dir(R & "EXeMPLE_AA ExeMple_Ab Exemple_ac*")
Do Until F = ""
MsgBox F
Loop