Copie d'un fichier de Sharepoint en le renomant

Bonjour,

J'ai préparé un fichier avec macro en local, pas de soucis, tout fonctionne.
Voici un extrait de la macro :

Dim Chemi As String
Dim CheminS1 As String
Dim CheminS2 As String
Dim FeSem As String
Dim FeSemP1 As String

FeSem = "S" & Format(Now(), "ww", vbMonday, vbFirstFourDays) + 1
FeSemP1 = "S" & Format(Now(), "ww", vbMonday, vbFirstFourDays) + 2

Chemi = Workbooks(ActiveWorkbook.Name).Path & "\"
CheminS1 = Chemi & FeSem & ".xlsm"
CheminS2 = Chemi & FeSemP1 & ".xlsm"
FileCopy CheminS1, CheminS2

Je suis maintenant obligé de le mettre sur un OneDrive pro, donc connecté à Sharepoint.
J'ai donc changé une ligne :
Chemi = Workbooks(ActiveWorkbook.Name).Path & "\"
j'ai mis :
Chemi = Workbooks(ActiveWorkbook.Name).Path & "/"

Cela ne fonctionne pas :
"Erreur d'exécution '52' :
Nom du numéro de fichier incorrect

Si je remplace
Chemi = Workbooks(ActiveWorkbook.Name).Path & "/"

par Chemi="D:\OneDrive - MonDrive\Documents Pro\Clients\....
cela fonctionne, mais le problème est que ce fichier doit servir sur différents postes donc il faut bien que j'utilise Workbooks(ActiveWorkbook.Name).Path

J'ai essayé

Dim FSO As Object
Set FSO = CreateObject("scripting.filesystemobject")
FSO.copyfolder Source:=CheminS1, Destination:=CheminS2

même message d'erreure

Si je mets
Workbooks.Open (CheminS1)
mon fichier s'ouvre bien

j'ai également essayé de remplacer mon CheinS2 par :

CheminS2 = Mid(Chemi, 7) & FeSemP1 & ".xlsm"
CheminS2 = Replace(CheminS2, "/", "\")

J'ai bien le résultat voulu :
'\\MonSite-my.sharepoint.com\personal\mon_identifiant\emplacement_du_dossier\sous_dossier....

Mais toujours même erreur

Est ce que quelqu'un aurait une idée pour la solution ?

Merci d'avance et bonne journée