Impossible d'afficher un nom de dossier et son chemin en VBA

Bonjour,

Dans ce cas pour limiter au premier niveau de sous-dossier il faut juste retirer la boucle récursive (DoFolder SubFolder) et exclure les dossiers systèmes (déjà codé par @m.blt )