bouton supprimer

Bonjour, Je recherche un code VBA pour un bouton qui me permettrait de supprimer tous les documents d'un dossier et de ses sous-dossier (dans l'explorateur de fichiers) en gardant ce dossier et tous les sous-dossiers. Pouvez-vous m'aider? Mes meilleures salutations, Thierry