naviguer entres onglet

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derlig
derlig = Range("A" & Application.Rows.Count).End(xlUp).Row

If Not Application.Intersect(Target, Range("A2:A" & derlig)) Is Nothing Then

 Dim Var As String
 Var = Target.Value
 
             Application.ScreenUpdating = False
             Sheets(Var).Activate
             
             With UserForm1
              .TextBox1.Value = ActiveSheet.Name
              [I][B][COLOR="SeaGreen"].Label1.Caption = ActiveSheet.Range("E1")[/COLOR][/B][/I]
              .Show
            End With
             
             
  '  ActiveWindow.SelectedSheets.PrintPreview
  '  Application.ScreenUpdating = True
  '  Sheets("ACCUEIL").Activate
  '  Range("A1").Activate
End If
End Sub

Private Sub SpinButton1_SpinDown()
If ActiveSheet.Name = Sheets(2).Name Then Exit Sub
TextBox1.Value = Sheets(ActiveSheet.Index - 1).Name
Sheets(TextBox1.Value).Activate
[I][B][COLOR="SeaGreen"]Label1.Caption = ActiveSheet.Range("E1")[/COLOR][/B][/I]

End Sub

Private Sub SpinButton1_SpinUp()
If ActiveSheet.Name = Sheets(Sheets.Count).Name Then Exit Sub
TextBox1.Value = Sheets(ActiveSheet.Index + 1).Name
Sheets(TextBox1.Value).Activate
[I][B][COLOR="SeaGreen"]Label1.Caption = ActiveSheet.Range("E1")[/COLOR][/B][/I]

End Sub