Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Sh.Name
Case "Feuil1"
Sh.Next.Visible = 0: Sh.Next.Next.Visible = 0
Case "Feuil2"
Sh.Next.Visible = 0: Sh.Previous.Visible = 0
Case "Feuil3"
Sh.Previous.Visible = 0: Sh.Previous.Previous.Visible = 0
End Select
End Sub