XL 2016 Rajout d'onglet dans fichier

Sub test()

Dim fichier_tempo As Workbook
Dim fichier_final  As Workbook
Dim ledernier As String
Dim onglet_donnees As Worksheet
Dim ZoneACopier As Range
Dim chemin_fichier_final As String
Dim dernier_onglet As Worksheet
Dim monrep As String
Dim monfichier As String
Dim derdate As Date
Dim VFeuille As Worksheet, Vsemaine, VNomS$


vyear = Year(Date)
vmonth = MonthName(Month(Date))
vday = Day(Date)

vDate = vday & vmonth & vyear

'
'=================identifier fichiers et onglets============================================
Set fichier_tempo = ActiveWorkbook
'C'est le fichier que je reçois par mail dont je veux copier le contenu d'un onglet :
'Je dois copier une zone plutôt que l'onglet lui-même car mes histoires de requêtes mettent le bazar dans 'excel

Range("E10").CurrentRegion.Select 'une cellule au centre de la zone'
Selection.Copy
'je définis mon fichier ou je veux coller ma zone
Set fichier_final = Application.Workbooks.Open("C:\Users\JTMQ6376\Desktop\rajoutonglet.xlsm")
'Je définis le dernier onglet de mon fichier destination
Set dernier_onglet = fichier_final.Worksheets(Worksheets.Count)

'===========================================================================================


'ci-dessous la ligne en commentaire, ça marchait et CA NE MARCHE PLUS, d'ou mon appel à l'aide
'fichier_final.Add After:=dernier_onglet
'Je veux rajouter un onglet à la dernière position de mon fichier destination puis coller mon "currentregion", puis d'autres mises en forme non présentes ici
'============================================================================================


Range("B1").Select
ActiveSheet.Paste
fichier_tempo.Close False

End Sub