Afficher masquer certaines feuilles

Private Sub CommandButton1_Click()
Masque CommandButton1.Caption
End Sub

Private Sub CommandButton2_Click()
Masque CommandButton2.Caption
End Sub

Private Sub CommandButton3_Click()
Masque CommandButton3.Caption
End Sub

Private Sub CommandButton4_Click()
Masque CommandButton4.Caption
End Sub

Sub Masque(x$)
Dim w As Worksheet, c As Range
ActiveCell.Activate 'car autrement c'est le bouton qui est actif...
For Each w In Worksheets
  Set c = w.Cells.Find(x, LookIn:=xlValues, LookAt:=xlWhole) 'ou LookAt:=xlPart
  w.Visible = Not c Is Nothing Or w.Name = Me.Name
Next
End Sub

Sub Masque(x$)
Dim w As Worksheet
For Each w In Worksheets
  w.Visible = w.[A2] = x Or w.Name = Me.Name 'ou recherche partielle => InStr(w.[A2], x)
Next
End Sub