Transfert entre deux feuille de deux classeur

Sub Macro2()
Dim co As Workbook 'déclare la variable co (Classeur Origine)
Dim cc As Workbook 'déclare la variable cc (Classeur Cible)
Dim oo As Worksheet 'déclare la variable oo (Onglet Origine)
Dim oc As Worksheet 'déclare la variable oc (Onglet Cible)
Dim dest As Range 'déclare la variable dest (DESTination)
Dim pl As Range 'déclare la variable pl
 
Set co = Workbooks("Départ.xls") 'définit la variable co
Set cc = Workbooks("terminus.xls") 'définit la variable cc
Set oo = co.Sheets("Feuil1Départ") 'définit la variable oo
Set oc = cc.Sheets("Feuil1Terminus") 'définit la variable oc
 
With cc 'prend en compte le classeur "terminus.xls"
    Set dest = oc.Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest
End With 'fin de la prise en compte du classeur "terminus.xls"
 
co.Activate 'active le classeur origine
oo.Activate 'active l'onglet origine
Selection.Copy dest 'copie et colle les données
 
On Error Resume Next 'gestion des erreurs (si la colonne D ne fait pas partie de la selection)
'marque le nom du classeur cible dans la colonne 4
Application.Intersect(Columns(4), Selection).Value = Split(cc.Name, ".")
If Err <> 0 Then 'condition : si il y a une erreur
    MsgBox "Sélection non valide" 'messgae
    Err = 0 'annule l'erreur
    Exit Sub 'sort de la procédure
End If 'fin de la condition
 
'colore la cellule sélectionnée de la colonne 3 en vert (couleur à adapter il y a plusieurs vert...)
Application.Intersect(Columns(3), Selection).Interior.ColorIndex = 4
ActiveCell.Select 'active une seule cellule
End Sub