Excel formules très compliquées

Sub calcul()
    Dim nbcol As Long, col As Long
    nbcol = Application.InputBox("Nombre de calculs voulus : ", Type:=1)
    If nbcol < 1 Then
        MsgBox ("nombre non valide")
    Else
        Application.ScreenUpdating = False
        ' nettoyage
        [J6].Resize(2, Columns.Count - 9).ClearContents
        [J12].Resize(2, Columns.Count - 9).ClearContents
        For col = 10 To WorksheetFunction.Min(nbcol, Columns.Count - 10) + 9
            Cells(8, col) = Sqr(Cells(6, col - 1)) ^ 2 + (Cells(7, col - 1) ^ 2)
            Cells(14, col) = Sqr(Cells(12, col - 1)) ^ 2 + (Cells(13, col - 1) ^ 2)
            '
            Cells(6, col) = Cells(6, col - 1) + Cells(8, col)
            Cells(7, col) = Cells(7, col - 1) + Cells(8, col)
            Cells(12, col) = Cells(12, col - 1) + Cells(14, col)
            Cells(13, col) = Cells(13, col - 1) + Cells(14, col)
        Next col
        Application.ScreenUpdating = True
    End If
End Sub