Lien Hypertexte via VBA

Bonjour,

avec le code ci-dessous:

Private Sub CommandButton1_Click()
Dim DernLigne As String, LeNumero As String

DernLigne = Feuil1.Range("B" & Rows.Count).End(xlUp).Row + 1
LeNumero = "N°" & DernLigne

Feuil1.Range("B" & DernLigne) = LeNumero

'Nouveau BL F
If OptionButton1.Value = True Then
    With Feuil15
        .Visible = True
        .Copy After:=ActiveSheet
        .Visible = False
    End With
    ActiveSheet.Range("K3") = LeNumero
    ActiveSheet.name = ActiveSheet.Range("K3")
End If

'Nouveau BL M
If OptionButton2.Value = True Then
    With Feuil17
        .Visible = True
        .Copy After:=ActiveSheet
        .Visible = False
    End With
    ActiveSheet.Range("K3") = LeNumero
    ActiveSheet.name = ActiveSheet.Range("K3")
End If

Unload Me

End Sub

J'aimerai que lorsque je crée mon nouveau numéro sur ma feuil1 que ça m'applique un lien hypertexte qui permet d'ouvrir la feuil qui porte ce numéro..

Bonjour,

à tester,

Feuil1.Range("A" & DernLigne).Activate
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        LeNumero & "!A1", TextToDisplay:="" & LeNumero