XL 2016 Transférer les dossiers de SharePoint à Excel

Bonjour tout le monde,

Je voudrai transférer les dossiers et les sous dossiers que j'ai dans l'espace SharePoint vers un seul tableau Excel à l'aide d'une macro VBA.
Le problème est que ce programme ci-dessous me permet de transférer que le contenue d'un seul dossier .

Sub Macro2()

Dim mySh As Worksheet
Dim spSite As String
Dim test As String

Set mySh = Sheets("Feuil10")
Dim src(0 To 1) As Variant

spSite = "url"
src(0) = spSite & "/_vti_bin"
src(1) = "{GUID}"

mySh.ListObjects.Add xlSrcExternal, src, True, xlYes, mySh.Range("A1")

Je vous remercie d'avance pour votre aide!