XL 2013 Liaison deux fichiers excel

Sub CopySheet_If_Both_WorkBooks_Open()
Dim WB1 As Workbook, WB2 As Workbook
Dim WS As Worksheet

Set WB1 = ThisWorkbook
Set WB2 = Workbook("Classeur2.xlsm")
Set WS = WB1.Worksheets("Feuil1")

WS.Copy Before:=WB2.Worksheets(1)

End Sub

Sub CopySheet_To_Closed_WorkBook()
Dim WB1 As Workbook, WB2 As Workbook
Dim WS As Worksheet
Dim FullPath As String

Set WB1 = ThisWorkbook
Set WS = WB1.Worksheets("Feuil1")

FullPath = WB1.Path & "\Classeur2.xlsm"

Set WB2 = Workbooks.Open(FullPath)
WS.Copy Before:=WB2.Worksheets(1)
WB2.Close True

End Sub