Microsoft 365 Ma macro créé une copie au lieu de modifier le document cible

Bonjour,

Je vous contact car j'ai un problème avec une macro qui utilise des documents sur un Teams.
Je souhaite prendre des informations d'une feuille excel et la copier dans un autre document excel. Mais quand je lance ma macro il créé un nouvel excel au lieu de modifier l'excel cible. Je ne sais pas pourquoi alors qu'avant cela fonctionnait bien. Je me demande si c'est un problème de droit mais je le lance avec mon compte microsoft et j'ai les droits de modifications sur le document source et le document cible.

Voila mon code
Sub CopierAgendas()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set agendas = Workbooks.Open("https://XXXX.sharepoint.com/❌/r/sit...ts et tests/Weekly Agendas Extract XXXXX.xlsm")
Set historique = Workbooks.Open("https://XXXXX.sharepoint.com/❌/r/si...artages/General/ZZZZ - RRRRR SSSSSS GGGG.xlsm")
agendas.Sheets(1).Delete
agendas.Sheets(1).Delete

historique.Sheets(1).Delete

ThisWorkbook.Sheets("AGENDA 1").Copy Before:=agendas.Sheets(1)
ThisWorkbook.Sheets("AGENDA 2").Copy Before:=agendas.Sheets(1)

ThisWorkbook.Sheets("HISTORIQUE 1B").Copy Before:=historique.Sheets(1)

agendas.Close SaveChanges:=True
historique.Close

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub