Parcourir dossiers - 1 niveau [VBA]

Dim NbreSlashRacine As Byte, NbreSlashEnfant As Byte 

NbreSlashRacine = UBound(Split("C:\Documents and Settings\Utilisateur001\Bureau", "\")) 

'---- ici ton code servant à parcourir--- 

'auquel tu ajoutes un test : "si le nombre de slash compris dans le chemin  
'du sous dossier actuel est supérieur à NbreSlash + 1 alors on ne traite pas 
NbreSlashEnfant = Ubound(Split(CheminActuel, "\")) 
If NbreSlashEnfant > NbreSlashRacine + 1 Then 
    'ici code "on ne fait rien" 
Else 
    'ici code on fait... 
End If

Sub ListerFichiers()
Dim Rep, sRp, Obj, sRep, F1
Dim Chem As String
    Chem = "C:\Dossier parent\"
    Set Obj = CreateObject("Scripting.FileSystemObject")
    Set Rep = Obj.Getfolder(Chem)
    For Each sRep In Rep 'Les répertoires enfants 1,2 3 etc...
        'lire les fichiers excel qui sont dans chaque répertoires.
        For Each F1 In sRep
            If Right(F1.Name, 3) = "xls" Then 'à adapter à tes fichiers
            'ICI TU EN FAIT CE QUE TU VEUX,c'est un classeur
            'par exemple
            Workbook.Open (F1.Path & "\" & F1.Name)
            End If
        Next F1
    Next sRep
End Sub

Sub ListerFichiers()
Dim Rep, F, Obj, sRep, F1, sf
Dim Chem As String
    Chem = "C:\Dossier parent\"
    Set Obj = CreateObject("Scripting.FileSystemObject")
    Set Rep = Obj.Getfolder(Chem)
    Set sRep = Rep.subfolders
    For Each sf In sRep 'Les répertoires enfants 1,2 3 etc...
    'Debug.Print sf.Path
        'lire les fichiers excel qui sont dans chaque répertoires.
        Set F = sf.Files
        For Each F1 In F
            If Right(F1.Name, 3) = "xls" Then 'à adapter à tes fichiers
            'ICI TU EN FAIT CE QUE TU VEUX,c'est un classeur
            'par exemple
            'Workbooks.Open (F1.Path )
            'Debug.Print F1.Path
            'Debug.Print F1.Name
            End If
        Next F1
    Next sf
    Set Obj = Nothing
    Set Rep = Nothing
    Set F = Nothing
End Sub