Отключить автоматический расчет

Question

Я бы хотел отключить автоматический расчет на одном листе. За исключением того, что я видел, что когда вы активировали автоматический расчет для одного листа, вы не можете отключить автоматический расчет для других.

Я пытаюсь сделать этот код, но он не работает.

    Sub EssaiTaux()
 '
 ' EssaiTaux Macro
 '

 '

  Worksheets("EssaiTaux").EnableCalculation = False
  Application.CutCopyMode = False
  ActiveSheet.ListObjects.Add(xlSrcRange, Range("$I$3:$P$18"), ,      xlYes).Name = _
    "Tableau4"
 …
  Range("I17").Select
  ActiveCell.FormulaR1C1 = "Total"
  Sheets("EssaiTaux").Select
  Range("J4").Select
  ActiveCell.FormulaR1C1 = "=+SUMIFS(BASE!C6,BASE!C9,RC9)"
  Range("J5").Select

   End Sub

Я хотел бы применить формулу только к нескольким ячейкам, а другую формулу к определенной ячейке, но режим автоматического расчета уже активирован с другими листами.