Bonjour

Pour un parcours récursif et choix d'un dossier à traiter :
Option Explicit
Const ForWriting = 2, ForReading = 1, BIF_RETURNONLYFSDIRS = 1
Const MSG = "Parcours d'un dossier et...