Copie de classeur à un autre

Option Explicit

Sub Copy()
    Dim LastRow As Long
    Dim WsDepart As Worksheet
    Dim WsDestination, Fichier_Ouvrir As String, nom_Fichier As String

    Application.ScreenUpdating = False
    
    Set WsDepart = Sheets("Model")
    'nom de ficher a adapter
    Fichier_Ouvrir = "D:\_ACSV\classeur2.xlsx"
    'nom du fichier avec extention
    nom_Fichier = Right(Fichier_Ouvrir, Len(Fichier_Ouvrir) - InStrRev(Fichier_Ouvrir, "\"))
    'ouverture fichier2.xls*
    Workbooks.Open (Fichier_Ouvrir)
    
    Set WsDestination = Workbooks(nom_Fichier).Worksheets("Base")
    LastRow = WsDestination.Range("C" & Rows.Count).End(xlUp).Row + 1   'premiere cellule vide colonne C

    ' Cela suppose que la colonne C soit remplie
    WsDestination.Range("A" & LastRow) = WsDepart.Range("C10")  'Date Arrivée
    WsDestination.Range("E" & LastRow) = WsDepart.Range("C12")  'Date Départ
    'J'ai 40 autres Cellules
    'save classeur2
    Workbooks(nom_Fichier).Close True
    'libere la memoire
    Set WsDestination = Nothing
    Set WsDepart = Nothing
    Application.ScreenUpdating = True
End Sub