Dim Fso As FileSystemObject, Dossier As Folder, SousDossier As Folder, Fichier As File
Public Sub SupFichier(ByVal Dossier As Folder)
' Fichiers dans le répertoire ini
For Each Fichier In Dossier.Files
' Si fichier d'un certian type
If Fichier.Name Like "*.xlsx" Then Debug.Print "Fichier qui sera supprimé : " & Dossier.Path & Fichier.Name
' Ligne à enlever en commentaire pour l'exécution
'If Fichier.Name Like "*.xlsx" Then Kill Dossier.Path & Fichier.Name
Next
' Fichier dans les sous-dossier
For Each SousDossier In Dossier.SubFolders
Call SupFichier(SousDossier)
Next
End Sub