Créer lien et onglet selon contenu cellule

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim shActif As Worksheet
    If Target.Column <> 2 And Target.Row < 3 Or Target.Value = "" Then Exit Sub
    Set shActif = ActiveSheet
    Application.ScreenUpdating = False
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    On Error GoTo suite
    ActiveSheet.Name = Target.Value
    On Error GoTo 0
    shActif.Activate
    shActif.Range(Target.Address).Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:= _
                               Target.Value & "!A1", TextToDisplay:=Target.Value
    Application.ScreenUpdating = True
    Exit Sub
suite:
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    shActif.Activate
    Target.Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub