Microsoft 365 Transfert FTP

Sub ListRemoteFolder(Target_Folder)
Dim HFind        As Long
    
    If Not [Dossiers].ListObject.DataBodyRange Is Nothing _
    Then [Dossiers].ListObject.DataBodyRange.Delete
    [Dossiers].Interior.ColorIndex = xlNone
    If Not [Fichiers].ListObject.DataBodyRange Is Nothing _
    Then [Fichiers].ListObject.DataBodyRange.Delete
    
    Select Case True
    Case FtpSetCurrentDirectory(HFtp, Target_Folder) = 0: MsgBox Target_Folder & " non trouvé", vbCritical
    Case Else
        Ftp.Data.cFileName = Space(MAX_PATH)
        HFind = FtpFindFirstFile(HFtp, "*.*", Ftp.Data, 0, 0)
        If HFind Then
            Do
                Buffer =...