Option Explicit
Sub CopyTo()
Dim WbTarget As Workbook
Dim Sht As Worksheet
Dim Target As String
Dim TargetFile As String
Dim Was_Closed As Boolean
'= A personnaliser ================================
Target = "Classeurnew.xlsx"
TargetFile = ThisWorkbook.Path & "\" & Target
'==================================================
Application.ScreenUpdating = False
If Dir(TargetFile) <> "" Then
Set Sht = ThisWorkbook.ActiveSheet
On Error GoTo Open_Target
Set WbTarget = Workbooks(Target)
If Not WbTarget Is Nothing Then
Sht.Copy After:=WbTarget.Sheets(WbTarget.Sheets.Count)
If Was_Closed Then WbTarget.Close True
End If
Sht.Parent.Activate
End If
Exit Sub
Open_Target:
On Error GoTo 0
Set WbTarget = Workbooks.Open(TargetFile)
Was_Closed = True
Resume Next
End Sub