VBA-Copie données ficher 1 feuille A vers ficher 2 feuille B

Const FeuilleSource = "Feuil1"

Const FichierBut = "D:\Fbut.xls"
Const FeuilleBut = "Feuil1"

Public Sub OK()
Dim plageS As Range, lifin As Long, cofin As Long
With Sheets(FeuilleSource)
  lifin = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
  cofin = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
  Set plageS = .Range(.Cells(1, 1), .Cells(lifin, cofin))
  plageS.Copy
  Workbooks.Open FichierBut
  Sheets(FeuilleBut).Select
  Cells(1, 1).Select
  ActiveSheet.Paste
  ActiveWorkbook.Save
  ActiveWorkbook.Close
End With
End Sub

Dim CS As Workbook
Set CS = Workbooks.Open(Filename:="C:\source\"Source.xlsx") 

Sub Macro1()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim CH As String 'déclare la variable CH (CHemin d'accès)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim CD As Worksheet 'déclare la variable OD (Onglet Destination)

Set CS = ThisWorkbook 'définit le classeur source CS
CH = CS.Path & "\" 'définit le chemin d'accès CH
Set OS = CS.Worksheets("FeuilSource") 'définit l'onglet source OS
On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
'définit le classeur destination CD (génère une erreur si le classeur n'est pas ouvert)
Set CD = Workbooks("Destination.xlsx")
If Err <> 0 Then 'condition : si une erreur a été générée
    Err.Clear 'supprime l'erreur
    Workbooks.Open (CH & "Destination.xlsx") 'ouvre le classeur "Destination.xlsx"
    Set CD = ActiveWorkbook 'définit le classeur destination CD
End If 'fin de la condition
On Error GoTo 0 'annule la gestion des erreurs
OD = CD.Sheets("FeuilDestination") 'définit l'onglet destination OD
'copie toules les celluleS de l'ongLet source OS et les colle dans A1 de l'onglet destination OD
OS.Cells.Copy OD.Range("A1")
CS.Close False 'ferme le classeur source CS sans enregistrer
End Sub