Editer une feuille excel sous reseau

Private Sub CommandButton1_Click()
Dim Wbk As Workbook, Chemin As String
Dim Client As String, Référence As String, Montant As Double, Jour As Date, Qui As String

With ThisWorkbook.Sheets("Feuil1") ' A ADAPTER
    Client = .Range("A3")
    Référence = .Range("E20")
    Montant = .Range("M23")
    Jour = CDate(.Range("C12"))
    Qui = .Range("B6")
End With
Chemin = "N:\Users\franck\Desktop\Mouvement\Travail\ClasseurTest.xlsx" 'A ADAPTER
Set Wbk = Workbooks.Open(Chemin)
With Wbk.Sheets("Feuil1") 'A ADAPTER
    dl = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & dl) = Client
    .Range("B" & dl) = Référence
    .Range("C" & dl) = Montant
    .Range("D" & dl) = Jour
    .Range("E" & dl) = Qui
End With
ActiveWorkbook.Close True
End Sub