XL 2016 VBA Répertoire d'une bibliothèque

Sub essai()
    MsgBox "Documents : " & Application.DefaultFilePath & "\" & Chr(10) & _
        "Images : " & Replace(Application.DefaultFilePath, "Documents", "Pictures") & "\" & Chr(10) & _
        "Musique : " & Replace(Application.DefaultFilePath, "Documents", "Music") & "\" & Chr(10) & _
        "Videos : " & Replace(Application.DefaultFilePath, "Documents", "Videos") & "\"
End Sub

Set objFolderItem = objFolder.Self

Option Explicit
Const mes_documents& = &H5
Const ma_musiques& = &HD
Const mes_Images& = &H27
Const mes_videos& = &HE
Const Documents_Public& = &H2E
Const Musique_public& = &H35
Const Images_Public& = &H36
Const Video_public& = &H37
Const DeskTop_Folder& = &H19
Const App_Data_Roaming_Folder& = &H1A
Const App_Data_Local_Folder& = &H1C
Const Windows_Folder& = &H24
Const System32_Folder& = &H25
Const Progamme_file_x86_Folder& = &H26 ' ou &H2A
Const User_Folder& = &H28
Const SysWoW64_Folder& = &H29

Sub testX()
    MsgBox getPath(28)
 End Sub

Function getPath(x) As String
    getPath = ""
    On Error Resume Next
    getPath = CreateObject("Shell.Application").Namespace(x).self.Path
End Function

Function getPath(x) As String
    getPath = ""
    On Error Resume Next
    getPath = CreateObject("Shell.Application").Namespace(x).self.Path
    On Error GoTo 0
End Function

Sub testX2()
    Dim i As Long
    For i = 1 To 50
        Cells(i, 1) = i
        Cells(i, 2) = getPath(i)
    Next
End Sub