Incrémentation de formule

Sub division()
Dim nbLignes As Long, i As Long, n As Long
    nbLignes = [a65000].End(xlUp).Row
        'n = 1
            'For i = 1 To nbLignes Step 1
                'Cells(n, 13).FormulaLocal = "=B" & i & "/2"
                'n = n + 1
                'Cells(n, 13).FormulaLocal = "=B" & i & "/2"
                'n = n + 1
            'Next i
        n = 1
            Set d = CreateObject("Scripting.Dictionary")
                For i = 1 To nbLignes Step 1
                    d(n) = Cells(i, 2) / 2
                    n = n + 1
                    d(n) = Cells(i, 2) / 2
                    n = n + 1
                Next i
            [m1].Resize(d.Count).Value = Application.Transpose(d.items)
End Sub