Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case ActiveSheet.Name
Case Is = 'sommaire', 'a', 'i', 'print', 'bh', 'b ind', '#PASS', 'txt', 'graph', 'aide aux paramètrages', _
'infos contact', 'VAC1', 'VAC2', 'VAC3', 'VAC4', 'VAC5'
Application.CommandBars('mxt').Controls(7).Enabled = False
Case Else
Application.CommandBars('mxt').Controls(7).Enabled = True
End Select
End Sub