Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Columns("A:A")) Is Nothing And R.Count = 1 Then
For i = 2 To Sheets.Count
If Sheets(i).Name = R.Value Then
Sheets(i).Visible = True
Sheets(i).Activate
Else
Sheets(i).Visible = False
End If
Next i
End If
End Sub
'À mettre dans le module de ThisWorkbook
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim ws As Worksheet
Cancel = True
If Sh.Name = "Feuil1" Then Exit Sub
For Each ws In Sheets
If ws.Name <> "Feuil1" Then
ws.Visible = False
Else
ws.Activate
End If
Next ws
End Sub