Erreur Nom ou numéro de fichier incorrect

Je te laisse étudier mon code VBA ci-dessous, qui affiche la liste des fichiers
d'un répertoire donné (en mettant aussi leurs dates). Je l'ai mis tel que ; à toi
de le comprendre sachant que le résultat est en Feuil2 et qu'il y a sur Feuil1 :

En C6 le chemin complet du répertoire sur disque dur, tel que :
C:\Users\albkan\AppData\Roaming\Microsoft\Modèles
ou :
C:\Users\albkan\Documents\Compta

Sub Directory()
  On Error GoTo ErrFolder
  Const NomMacro As String * 9 = "Directory"
  Worksheets(1).Select
  If IsEmpty([C6]) Then MsgBox "C:\DossierX manquant...  ", 48, "Quel dossier ?": Exit Sub
  Dim DirX As Object, FileX As Object, ListFiles As Object, nb As Long, i As Long
  Set DirX = CreateObject("Scripting.FileSystemObject").GetFolder([C6])
  Set ListFiles = DirX.Files: With Worksheets(2): .Select: .Unprotect: .Cells.ClearContents: End With
  [B2] = Worksheets(1).[C6]
  With [B4]
    For Each FileX In ListFiles
      .Offset(i) = Format(FileX.DateLastModified, "dd/MM/yyyy    hh:mm")
      .Offset(i, 1) = FileX.Name: nb = nb + 1: i = i + 1: If nb Mod 4 = 0 Then i = i + 1
    Next FileX
    .Offset(i + 1, 1) = "Total : " & nb & " fichiers"
  End With
  ActiveSheet.Protect: Exit Sub
ErrFolder:
  MsgBox "Le dossier indiqué en C6 n'existe pas :  " & vbLf & [C6] & "  ", 48, "Macro " & NomMacro
End Sub

Regarde bien la ligne Set ListFiles = DirX.Files car ensuite, c'est l'instruction
For Each FileX In ListFiles qui parcourt tous les fichiers du répertoire.

Dans ton cas, C6 doit être remplacé par le nom du répertoire Sharepoint,
et ça devrait marcher. Tiens-moi au courant. A+  😊