Copier le nom d'un onglet

Bonjour,

Je voudrais copier un onglet d'un fichier pour le coller dans un autre tout en copiant également le nom de l'onglet. Je ne trouve pas le code pour copier/coller le nom de l'onglet pouvez vous m'aider ?
Voici mon code :

        Workbooks.Open (Chemin & "\" & DossierDB & "\" & FichierDB), UpdateLinks:=False
        Workbooks(FichierDB).Activate
        Cells.Select
        Selection.Copy
        Windows(FichierMacro).Activate
        ActiveWindow.ScrollWorkbookTabs Position:=xlLast
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Paste
        ActiveWindow.DisplayGridlines = False
        ActiveWindow.Zoom = 85
        Application.CutCopyMode = False
        Workbooks(FichierDB).Activate
        ActiveSheet.Name.Copy
        Windows(FichierMacro).Activate
        ActiveSheet.Name.Paste

Ca bloque pour la partie en gras...

Merci d'avance,

Nono