Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A2:A500")) Is Nothing Then
Dim Var As String
Var = Target.Value
Sheets(Var).Activate
End If
End Sub
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
ActiveWindow.SelectedSheets.PrintPreview
Application.ScreenUpdating = True
Sheets("ACCUEIL").Activate
Range("A1").Activate
End If
End Sub