Comment supprimer depuis excel des répertoires avec leurs sous répertoires et tous les fichiers qu'ils contiennent ?

sub SupprDossier()
 'supprimer des dossiers avec tout ce qu'ils contiennent
 '(y compris leurs sous-dossiers et leur contenu)
 Dim fso As Object, Dossier$
 
  Set fso = CreateObject("Scripting.FileSystemObject")
  Dossier = "D:\Mes Docs Excel"
  fso.DeleteFolder Dossier
 
 end sub

'fs