Code VBA lister dossier / sous dossier / fichier etc... Problème

Sub arborescence()
'Activer la référence Microsoft Scripting Runtime !!!!!!

'###############################gestion icone treeview début

DoCmd.Hourglass True
TreeView0.Nodes.Clear
'Supprime toutes les images de la liste
Me.ImageList1.ListImages.Clear

'Définit la dimension des images
Me.ImageList1.ImageHeight = 18 'Hauteur
Me.ImageList1.ImageWidth = 18 'Largeur

'Charge les images
Img1 = "Z:\07 - Gestion informatique\01 - Bases de données\00 - SOURCE DES DONNEES\02 - IMAGES\01 - ICONES\Icône Dossier.jpg"
Img2 = "Z:\07 - Gestion informatique\01 - Bases de données\00 - SOURCE DES DONNEES\02 - IMAGES\01 - ICONES\Icône PacMan.jpg"
Img3 = "Z:\07 - Gestion informatique\01 - Bases de données\00 - SOURCE DES DONNEES\02 - IMAGES\01 - ICONES\Icône Fichier Standard.jpg"

'Nécessite d'ajouter un controle imagelist n'importe où dans le formulaire
Me.ImageList1.ListImages.Add , "Image1", LoadPicture(Img1)
Me.ImageList1.ListImages.Add , "Image2", LoadPicture(Img2)
Me.ImageList1.ListImages.Add , "Image3", LoadPicture(Img3)

'Associe les images au TreeView
Set TreeView0.ImageList = Me.ImageList1.Object

'###############################gestion icone treeview fin

racine = "D:\TEST" 'ChoixDossier() ' ou un répertoire C:\xxx e.g.
Set fs = CreateObject("Scripting.FileSystemObject")
Set dossier_racine = fs.GetFolder(racine)
num = 1000000000 '<- ce nombre est là pour éviter de faire des doublons sur les nodes correspondant aux fichiers (et pas dossier) présent sur le treeview. Si il est pas, il y aurait doublons de clé
Set nodx = TreeView0.Nodes.Add(, , "A", "Titre au choix !", "Image2") ', "Image1")
Lit_dossier2 dossier_racine, 1, num ' c'est partie, on liste les nodes
DoCmd.Hourglass False

Set Img1 = Nothing
Set Img2 = Nothing
Set Img3 = Nothing
Set nodx = Nothing
Set fs = Nothing
Set dossier_racine = Nothing
Set num = Nothing
Set niveau = Nothing
Set dossier = Nothing
End Sub

Sub Lit_dossier2(ByRef dossier, ByVal niveau, ByRef num)
    If niveau = 1 Then
        Set nodx = TreeView0.Nodes.Add("A", tvwChild, dossier.Path, dossier.Name, "Image1") ' gestion des dossiers de 1er niveau de node
    Else
        Set nodx = TreeView0.Nodes.Add(Left(dossier.Path, Len(dossier.Path) - Len(dossier.Name) - 1), tvwChild, dossier.Path, dossier.Name, "Image1") ' gestion des dossiers de niveau > 1 de node
    End If
    
    For Each f In dossier.Files
        If niveau = 1 Then
            Set nodx = TreeView0.Nodes.Add("A", tvwChild, f.Name, f.Name, "Image3") ' gestion des fichiers de 1er niveau de node
        Else
            If f.Name = "Thumbs.db" Then GoTo a:
            Set nodx = TreeView0.Nodes.Add(Left(dossier.Path, Len(dossier.Path)), tvwChild, dossier.Path & num, f.Name, "Image3") ' gestion des fichiers de niveau > 1 de node
            num = num + 1 ' ce fameux num qui est là pour eviter les doublons de clé. On peut ajouter jusqu'à 9 999 999 999 de nodes de fichiers différents ... Ca sera assez !
a:
        End If
    Next
    For Each D In dossier.SubFolders
       Lit_dossier2 D, niveau + 1, num
    Next
End Sub

Public Sub treeview0_dblclick()
    If Left(Right(TreeView0.SelectedItem.Text, 4), 1) <> "." Then ' il un fichier est détecté, il l'ouvre avec l'application défini dans windows. Si c'est un dossier il l'ouvre dans l'explorateur windows
        Shell "C:\WINDOWS\EXPLORER.EXE " & TreeView0.SelectedItem.Key & "\", vbNormalFocus
        Exit Sub
    End If
    Set sh = CreateObject("WScript.Shell")
    Set fs = CreateObject("Scripting.FileSystemObject")
    lien = Left(TreeView0.SelectedItem.Key, Len(TreeView0.SelectedItem.Key) - 10) & "\" & TreeView0.SelectedItem.Text
    Set fich = fs.GetFile(lien)
    lien = fich.ShortPath
    sh.Run Chr(34) & lien & Chr(34)
End Sub