update formule sous total

bonjour,

comment dans une macro mettre a jour ma formule de sous total pour qu'elle prenne en compte les nouvelles cellules


voici mon code
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(7), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveWindow.SmallScroll ToLeft:=1

voici la cellule que je rajoute
With Cells(I + 1, 6)
.Value = " BORROWED POSITION "
.Font.Bold = True
.Font.Color = vbRed
.Interior.ColorIndex = 6
With Cells(I + 1, 7)
.Value = Cells(I, 14).Value
.Font.Bold = True
.Interior.ColorIndex = 6
If .Value > 0 Then .Font.Color = vbBlue
If .Value < 0 Then .Font.Color = vbRed
End With

merci de votre aide