checkbox et bouton visible

Private Sub CheckBox1_Click()
Me.CommandButton1.Visible = IIf(Me.CheckBox1, True, False)
End Sub

Private Sub Worksheet_Activate()
Me.CheckBox1.Value = False
End Sub

Private Sub Workbook_Open()
Sheets("Feuil1").CheckBox1.Value = False
End Sub

Private Sub CommandButton7_Click()
UserForm1.Show
End Sub

Private Sub CommandButton1_Click()
With Sheets("Feuil1")
    .CommandButton2.Visible = True
    .CommandButton3.Visible = False
End With
Unload Me
End Sub

Private Sub CommandButton2_Click()
With Sheets("Feuil1")
    .CommandButton2.Visible = False
    .CommandButton3.Visible = True
End With
Unload Me
End Sub

Private Sub Workbook_Open()
With Sheets("Feuil1")
    .CommandButton2.Visible = False
    .CommandButton3.Visible = False
End With
End Sub