Probleme de chemin avec une macro

Sub Export_des_données_BDD()
Dim LastRow As Long

'Activer le classeur de destination
Workbooks.Open Filename:="I:\GPCHAUSR\DISTRIBUTION_FICHE.xlsm"

LastRow =Workbooks("DISTRIBUTION_FICHE.xlsm").Worksheets("Fiche_CR").Range("A" & Rows.Count).End(xlUp).Row

Workbooks("FICHE_DETECTION.xlsm").Worksheets("Fiche").Range("B4").Copy 'date de la fiche 'Copier les cellules désirées
Workbooks("DISTRIBUTION_FICHE.xlsm").Worksheets("Fiche_CR").Range("A" & LastRow + 1).PasteSpecial xlPasteValues 'Coller les cellules

'quitter le mode de copie (
Application.CutCopyMode = False
 
  ActiveWorkbook.Save
    ActiveWindow.Close

Application.ScreenUpdating = False

End Sub