XL 2019 Lien hypertexte interne - modifications automatiques selon la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Der_Ligne&
    If Target.Count = 1 Then
        Der_Ligne = Range("A65536").End(xlUp).Row
        On Error GoTo Gere_Erreurs
        If Not Intersect(Range("E2:E" & Der_Ligne), Target) Is Nothing Then
            With Worksheets("Bilan des heures")
                .Select
                .Range("A" & Range("B" & Target.Row).Value & ":I" & Range("B" & Target.Row).Value).Select
            End With
        Else
            If Not Intersect(Range("F2:F" & Der_Ligne), Target) Is Nothing Then
                With Worksheets("Horaire")
                    .Select
                    .Range("A" & Range("C" & Target.Row).Value & ":I" & Range("D" & Target.Row).Value).Select
                End With
            Else
                If Not Intersect(Range("G2:G" & Der_Ligne), Target) Is Nothing Then
                    With Worksheets("Feuille de temps semaine " & Range("A" & Target.Row).Value)
                        .Select
                        .Range("A1").Select
                    End With
                End If
            End If
        End If
        On Error GoTo 0
    End If
    Exit Sub
Gere_Erreurs:
    Err.Clear
End Sub