ce petit bout de programme que j'ai modifie avec du code a gauche a droite ne fonctionne pas !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub BrowseFiles(Path As String)
    Filename = Dir(Path, vbDirectory)
    Do While Filename <> ""
        If Filename <> "." And Filename <> ".." Then
            rep = (GetAttr(Path & Filename) And vbDirectory) = vbDirectory
            If rep Then
                BrowseFiles (Path & Filename & "\")
            Else
                Debug.Print Path & "   " & Filename
            End If
        End If
        Filename = Dir    ' Extrait l'entrée suivante.
    Loop
End Sub

je soupsone qu'on ne puisse pas faire du recursif en VBA ?