Private Function ListRep(NomRep As String) Dim fs As New FileSystemObject Dim Repertoire As Folder Dim Fichier As File Dim SousRepertoire As Folder Set Repertoire = fs.GetFolder(NomRep) For Each Fichier In Repertoire.Files Debug.Print Fichier.Name & " - " & Fichier.Path Next For Each SousRepertoire In Repertoire.SubFolders Call ListRep(SousRepertoire.Path) Next End Function