Récupérer arborescence fichier et supprimer dossier vide

Bonjour a Tous

Voici un fichier Excel avec des petits bout de code récupérer la toile qui fonctionne très bien et j'aimerais l'améliorer.

Je fais appel a vous pour modifier le code vba de création de dossier par un code vba pour récupérer un dossier parent et par la suite supprimer tous les dossier vide (exemple dans l'onglet MODIF DOSSIER)