Проблема с таблицей и автоматическим расчетом

Question

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

 Sub ...
 Application.Calculation = xlCalculationManual
 Application.CutCopyMode = False
 ActiveSheet.ListObjects.Add(xlSrcRange, Range("$I$3:$P$18"), ,     xlYes).Name = _
    "Tableau4"
 Range("Tableau4[[#Headers],[Colonne2]]").Select
 ActiveCell.FormulaR1C1 = "VB"
 Range("Tableau4[[#Headers],[Colonne3]]").Select
 ActiveCell.FormulaR1C1 = "Oui"
 Range("Tableau4[[#Headers],[Colonne4]]").Select
 ActiveCell.FormulaR1C1 = "Non"
 ...
 Range("M17").Select
 ActiveCell.FormulaR1C1 = "=SUM(R[-13]C:R[-1]C)"
 Range("M18").Select
 ActiveCell.FormulaR1C1 = ""
 Range("N17").Select

 ActiveCell.FormulaR1C1 = "=IF(RC[-4]=0,0,RC[-3]/RC[-4])"
 Range("N18").Select

 Range("O19").Select
 Sheets("Feuil13").Select
 ActiveCell.FormulaR1C1 = "=IF(RC[-5]=0,0,RC[-3]/RC[-5])"

 End Sub

Применение фармулы Application.Calculation = xlCalculationManual, не работайте в моем коде. И я не могу отключить автоматический расчет, который я чувствую, потому что я уже применяю его на других листах. В любом случае отключить его все равно не получится.

Answer 1

Я бы хотел, чтобы автоматический расчет был на листе, потому что я создал таблицу. Когда я применяю формулу к первой ячейке, вычисление выполняется автоматически для всех ячеек. (Мне не понятно, потому что я не говорю по-английски)