Macro VBA ouvrir un fichier d'un sharepoint sans lecture seul

Bonjour à tous,

J'ai développé pour mon entreprise des macros qui interagissent entre plusieurs fichiers en faisant appel à leurs places sur un fichier partagé.
L'entreprise va migrer tous ces fichiers sur l'application Teams qui reposent sur un sharepoint. Je dois donc adapter ces macros en fonction de cette migration.

La macro consiste à extraire certaines information du Workbook WB1 pour les coller sur le Workbook WBPlan. (Les deux fichiers sont présents sur le sharepoint)

Sub ouverture()

Plan = "lien sharepoint& "/" & "Plan%20d%27action.xlsx"

Dim WBPlan As Workbook, WB1 As Workbook
Dim wsPlan As Worksheet, ws1 As Worksheet

Set WBPlan = Workbooks.Open(Filename:=Plan, ReadOnly:=False)
Set wsPlan = WBPlan.Sheets("Plan d'action")
Set WB1 = ThisWorkbook
Set ws1 = WB1.Sheets("Template Audit")

Le problème est que le Workbook WBPlan s'ouvre en lecture seul. Auriez-vous une solution pour le fichier WBPlan ne s'ouvre pas en lecture seul ?

Merci d'avance.