Dans un dossiers C: ransfert je reçois des dossiers qui peuvent être vides. Comment les éliminer si c'est le cas ?

A mettre dans un module standard :

sub test()
 SupprDossierSiVide "C:	ransfert"
 end sub

sub SupprDossierSiVide(NomDossier$)'fs 
 'examiner un dossier et ses sous dossiers pour 
 'supprimer ceux qui sont vides 
 Dim fso As Object, Dossier As Object  Dim sousRep As Object, Flder As Object   
 Set fso = CreateObject("Scripting.FileSystemObject")  
Set Dossier = fso.GetFolder(NomDossier)   
 'examen du dossier courant 
 For Each Flder In Dossier.subfolders  
 If Flder.subfolders.Count + Flder.Files.Count = 0 Then   
 fso.deletefolder Flder.Path   
End If  
Next    'traitement récursif des sous dossiers  
For Each sousRep In Dossier.subfolders
  SupprDossierSiVide sousRep.Path
 Next sousRep
 Set fso = Nothing
 
 end sub