[COLOR=DarkSlateGray][B]Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim tf As Boolean, i&, j&, k&, l&, SFeuil
SFeuil = Array(Array("Feuil2", "Feuil4"), Array("Feuil3", "Feuil5")) [COLOR=DarkOrange]'À adapter[/COLOR]
For j = 0 To UBound(SFeuil)
For i = 0 To UBound(SFeuil(j))
If Sh.Name = SFeuil(j)(i) Then Exit For
Next i
If i <= UBound(SFeuil(j)) Then Exit For
Next j
If j > UBound(SFeuil) Then Exit Sub
For l = 1 To ThisWorkbook.Sheets.Count
tf = False
For k = 0 To UBound(SFeuil(j))
If ThisWorkbook.Sheets(SFeuil(j)(k)).Name = Sheets(l).Name Then tf = True
Next k
If Not tf Then ThisWorkbook.Sheets(l).Visible = xlSheetHidden
Next l
End Sub
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim i&
If Target.Address(0, 0) = "A1" Then
For i = 1 To ThisWorkbook.Sheets.Count
If ThisWorkbook.Sheets(i).Visible = xlSheetHidden Then Cancel = True: ThisWorkbook.Sheets(i).Visible = xlSheetVisible
Next i
End If
End Sub[/B][/COLOR]