Création nouvelle feuille avec lien hypertexte

Bonjour à tous,

J'aurais besoin de votre aide pour résoudre les erreurs que j'ai dans un possible code.

Lorsque j’appuie sur un bouton une procédure se réalise, une nouvelle feuille devrait s'ouvrir "Test - X".

Sur la feuille d'accueil un chiffre en fonction du numéro de test s'incrémente colonne "B" et j'aimerai afficher sur la colonne "A" le mot "Lien" qui redirige vers la feuille "Test - 5" par exemple équivalent aux mesures du test 5.

J'ai quelques soucis... le lien hypertexte se met mais en cliquant dessus ca ne me met pas vers la feuille en question

Deuxième soucis, les numéros que j'incrémente se mettent également en lien hypertexte.

Sub AjoutdeFeuilleX()
Dim Num As Integer, Cellule As Range

     Num = Application.Max(Columns("b")) + 1
     'Set Cellule = Columns("B").Find("", Range("B10"))
     'Cellule = Num
derLigne = Sheets("Accueil").Range("A65536").End(xlUp).Row + 1
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Test" & Num
Sheets("Accueil").Activate
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & derLigne), Address:="", SubAddress:= _
        "'Test" & Num & "!A1", TextToDisplay:="'Test" & Num
End Sub

Je vous fais part du code de cette fonction et de mon fichier Excel.

Merci à celui/ceux qui pourront m'aider.