Option Explicit
Private Sub CommandButton1_Click()
ActiveSheet.Calculate
End Sub
Private Sub ToggleButton1_Click()
Application.Calculation = IIf(ToggleButton1, xlCalculationManual, xlCalculationAutomatic)
ToggleButton1.Caption = IIf(ToggleButton1, "En Calcul Manuel", "En Calcul Auto")
End Sub