XL 2010 faire disparaitre un bouton...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C11")) Is Nothing And Target.Count = 1 Then
ActiveSheet.Shapes("Bouton 5").Visible = IIf(Range("H12") = 0, True, False)
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
      If Cells(12, 8) = 0 Then
      ActiveSheet.Shapes("Bouton 5").Visible = False
      Else
      ActiveSheet.Shapes("Bouton 5").Visible = True
      End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes("Bouton 5").Visible = Not [h12] = 0
End Sub

Private Sub Worksheet_Calculate()
  CommandButton1.Visible = [H11] = 0
End Sub

Option Explicit
Private Sub Worksheet_Calculate()
    ActiveSheet.Shapes("Bouton 5").Visible = Application.WorksheetFunction.CountA(Range("c3:c11")) = 9
End Sub