Probleme de chemin avec une macro

Bonjour,
ma macro est :

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

Voila, ça fonctionne sur mon PC lorsque que j'utilise le classeur source (FICHE_DETECTION), MAIS des lors que je l'envoie par mail a mon collègues et qu'il l'utilise sur son poste, ça ne fonctionne pas ALORS que le fichier Cible ("DISTRIBUTION_FICHE") est sur un serveur partagé ...
Pourquoi chez mes collègue ça ne fonctionne?