Microsoft 365 changer chemin d'accès d'un classeur excel ?

Option Explicit

Sub Lecture()
  Dim Chemin$, Fichier$, lig&, k&: Application.ScreenUpdating = 0
 
  'Chemin = le dossier où tu as mis ce fichier Excel,
  'par exemple : C:\Users\miroma\Documents\
  Chemin = ThisWorkbook.Path & "\"
 
  'OU si tu préfères utiliser un sous-dossier, par exemple "Comptabilité",
  'tu auras : C:\Users\miroma\Documents\Comptabilité\
  'Chemin = ThisWorkbook.Path & "\Comptabilité\"
 
  Fichier = "Comptes.xlsm"
 
  For lig = 3 To 62
    k = lig + 148
    With Cells(lig, "BJ")
      .Value = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]cpt '!R" & k & "C2")
      .Offset(, 1) = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]cpt '!R" & k & "C3")
      .Offset(, 2) = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]cpt '!R" & k & "C4")
      .Offset(, 3) = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]cpt '!R" & k & "C5")
    End With
  Next lig
 
  [K1] = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]Vos comptes'!R4C3")
  [AY39] = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]Vos comptes'!R1C1")
End Sub

Chemin = ThisWorkbook.Path & "\Comptabilité\"

Chemin = "C:\Users\miroma\Documents\Comptabilité\"