Excel macro, centralisation des données de plusieurs classeurs

Bonjour,

Je souhaite regrouper les données de plusieurs classeur excel dans un même classeur. Tous les fichiers sont dans le même dossier, ils sont tous fait de la même manière. Je souhaite par exemple recupéré les données des cellules A2 et A5 de tous les fichiers sur la premiére page qui s'appelle "Dashboard to fill".
Je ne sais pas combien il y aura de classeur dans le dossier, nous créons un classeur à chaque fois que nous réalisons une formation. Les classeurs portent le nom "Workshop dashboard puis le nom de la formation et la date". Le nom de la formation et la date changerons donc pour chaque classeurs. Tous les classeurs sont dans le même dossier.
Ce dossier est sur la plateforme Onedrive de l'équipe pour laquelle je travaille. http://.....SharePoint/...

Je sais codé en Macro la boucle qui permet de récuperer les informations de classeur se trouvant sur dans un même dossier sur mon bureau, mais lorsque je l'utilise pour le dossier en ligne cela ne fonctionne pas.

Option Explicit

Sub En_revue()

Dim Fichier_traité As String, k As Integer
Dim Chemin As String, LigneVide As Integer

Application.ScreenUpdating = False
Range("A2:C65000").ClearContents

Chemin = ThisWorkbook.Path & "\"
Fichier_traité = Dir(Chemin & "*.xlsm")

Do While Fichier_traité <> ""
If Fichier_traité = ThisWorkbook.Name Then GoTo Etiquette
Workbooks.Open Chemin & Fichier_traité
LigneVide = ThisWorkbook.Sheets("Sheet1").Range("A65000").End(xlUp).Row+1
ThisWorkbook.Sheets("Sheet1").Range("A" & LigneVide) = Range("A2")
ThisWorkbook.Sheets("Sheet1").Range("B" & LigneVide) = Range("A5")
ThisWorkbook.Sheets("Sheet1").Range("C" & LigneVide) = Range("AE" & Range("AE65000").End(xlUp).Row)
ThisWorkbook.Sheets("Sheet1").Range("C" & LigneVide) = Fichier_traité

Workbooks(Fichier_traité).Close False
Etiquette:

Fichier_traité = Dir
Loop

End Sub

Quand je l'utilise avec un dossier du OneDrive il trouve une erreur dans cette partie, même si je rentre l'adresse IP du site dans Chemin = il ne veut pas.
Fichier_traité = Dir(Chemin & "*.xlsm")

Avez vous une solution? Savez vous si c'est possible?
N'hésitez pas si vous avez des questions.

J'utilise la dernière version de Microsoft.
Merci