Option Explicit
Sub TEST()
Dim Fso As Object, Main_Rep As String
Dim Sous_Rep As Object, Fichier As Object
Dim wb as Workbook
Set Fso = CreateObject("Scripting.FileSystemObject")
Main_Rep= "Q:\Chemin\"
For Each Sous_Rep In Fso.GetFolder(Main_Rep).SubFolders
For Each Fichier In Sous_Rep.Files
' ----------------- Ouverture du xls :
Set wb = Workbooks.Open(Fichier)
' --------- Traitement des données du fichier -------
' ------ On renomme le fichier en SET_Fichier ------
Fichier.close
wb.close
Next Fichier
Next Sous_Rep
End Sub