Vba ouvrir les fichiers excel des sous dossiers, uniquement.

Bonjour,

Je voudrais qu'une macro ouvre les fichiers excel qui se trouvent uniquement dans les sous répertoires. (surtout pas dans le répertoire hôte)
Pour l'instant, j'ai fait cette macro, mais elle s'applique au répertoire hôte (thisworkbook.path)...

Sub ouvrir_fichiers()
ChDir ThisWorkbook.Path
monfichier = Dir("*.*")
While monfichier <> ""
Workbooks.Open monfichier
monfichier = Dir()
Wend
End Sub

Comment faire ??? Que faut-il ajouter ou modifier ?

Merci :-)
François