Inserer une formule+Macro

Sub formul()
Dim i As Long
Dim j As Long
    For i = Range("IV6").End(xlToLeft).Column To 1 Step -1
        For j = Range("A65536").End(xlUp).Row To 1 Step -1
            If Cells(j, i) <> "" And Cells(j + 1, i) = "" Then
                Cells(j + 1, i).Value = Cells(j - 1, i).Value - Cells(j, i).Value
            End If
        Next j
    Next i
End Sub

Sub all_mac()
Dim i As Long
Dim j As Long
j = Range("A" & Application.Rows.Count).End(xlUp).Row + 1
    For i = Range("IV6").End(xlToLeft).Column To 1 Step -1
        If Cells(6, i) = "Sales Team Forecast" And Cells(6, i + 1) <> "" Then
            Columns(i + 1).Insert Shift:=xlToRight
            Cells(6, i + 1).Value = "Fcst Error"
        End If
        If Cells(j - 1, i) <> "" Then
            Cells(j, i).Value = Cells(j - 1, i).Value - Cells(j - 2, i).Value
        End If
    Next i
End Sub

Sub all_mac()
Dim i As Long
Dim j As Long
j = Range("A" & Application.Rows.Count).End(xlUp).Row
    For i = Range("IV6").End(xlToLeft).Column + 1 To 1 Step -1
        If Cells(6, i) = "Sales Team Forecast" Then
            Columns(i + 1).Insert Shift:=xlToRight
            Cells(6, i + 1).Value = "Fcst Error"
            sAdr = Cells(6, i + 1).Address(1, 0)
            Col = Mid(sAdr, 1, InStr(1, sAdr, "$") - 1)
            sAdr2 = Cells(7, i).Address(1, 0)
            Col2 = Mid(sAdr2, 1, InStr(1, sAdr2, "$") - 1)
            sAdr3 = Cells(7, i - 1).Address(1, 0)
            Col3 = Mid(sAdr3, 1, InStr(1, sAdr3, "$") - 1)
            Range(Col & "7:" & Col & Range("A65536").End(xlUp).Row).FormulaLocal = "=" & Col3 & "7 -" & Col2 & "7"
        End If
    Next i
End Sub