XL 2019 Pb avec PtrSafe

#If VBA7 Then
Private Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As LongPtr, ByVal pszPath As String) As LongPtr
Private Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
#Else
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
#End If

Private Type BROWSEINFO    ' pour function LoadNomDuRep
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type
#If VBA7 Then
    Private Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As LongPtr, ByVal pszPath As String) As LongPtr
    Private Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
#Else
    Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
    Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
#End If

Public Function LoadNomDuRep() As String    ' retourne le nom du rep sélectionné
    Dim bInfo As BROWSEINFO, Path As String, R As Long, X As Long, Pos As Integer
    bInfo.pidlRoot = 0&    ' Root folder = Desktop
    bInfo.lpszTitle = "Selectionner un répertoire"    'titre
    bInfo.ulFlags = &H1    ' Type directory
    X = SHBrowseForFolder(bInfo)    'aff dialog
    ' traite résultat
    Path = Space$(512): R = SHGetPathFromIDList(ByVal X, ByVal Path)
    If R Then
        Pos = InStr(Path, Chr$(0)): LoadNomDuRep = Left(Path, Pos - 1)
    Else
        LoadNomDuRep = ""
    End If
End Function

Public Function LoadNomDuRep() As String    ' retourne le nom du rep sélectionné
    Dim sFolder As String
    ' Open the select folder prompt
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then    ' if OK is pressed
            LoadNomDuRep = .SelectedItems(1)
        Else
            LoadNomDuRep = ""
        End If
  
End With
End Function

Public Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean, TestRetour)
'exp: ListFilesInFolder "C:\FolderName\", True < avec sous dossiers) !!! récursivité (***)
    Dim FSO, SourceFolder, SubFolder, FileItem, R As Long
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.GetFolder(SourceFolderName)
    If TestRetour = 0 Then
        Cells.Clear
        Columns.ColumnWidth = 10
        Cells(3, 1) = "Fichier": Cells(3, 2) = "Créé": Cells(3, 3) = "Modifié": Cells(3, 4) = "Capacité": Cells(3, 5) = "Chemin"
    End If
    R = Range("A65536").End(xlUp).Row + 1
    For Each FileItem In SourceFolder.Files
        If ".mp3 .wave .mp4" Like "*" & Right(FileItem.Name, 4) & "*" Then ' pour ne pas lister les images des jacquettes
        Cells(R, 1).Formula = FileItem.Name
        Cells(R, 2).Formula = FileItem.DateCreated
        Cells(R, 3).Formula = FileItem.DateLastModified
        If FileItem.Size >= 1024 Then
            Cells(R, 4).Formula = Int(FileItem.Size / 1024) & " Ko"
        Else
            Cells(R, 4).Formula = FileItem.Size & " Oct"
        End If
        ActiveSheet.Hyperlinks.Add Cells(R, 5), FileItem.Path    ' FileItem.Name
        'Cells(R, 5).Formula = SourceFolderName 'FileItem.Path
        R = R + 1
    End If
    Next
    If IncludeSubfolders Then
        For Each SubFolder In SourceFolder.SubFolders
            ListFilesInFolder SubFolder.Path, True, 1    '(***)
        Next
    End If
    Columns.AutoFit
    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing
End Sub

Sub TEST()
    MsgBox getFolder
End Sub
Function getFolder()
    Dim ShellApp As Object, folder As Object
    Set ShellApp = CreateObject("Shell.Application")
    Set folder = ShellApp.BrowseForFolder(0, "CHOISIR UN DOSSIER", 0, "")
    If Not folder Is Nothing Then getFolder = folder.Self.Path
End Function