Traduction macro VBA excel en macro openoffi

Bonjour même problème avec cette macro à traduire svp :)

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub Module1
Rem Function DPTotalCost(SkillLevel, Base, Modifier)
Rem Dim i As Integer
Rem For i = 1 To SkillLevel
Rem DPTotalCost = DPTotalCost + Application.Round(Application.Round(Sqr(2 * i), 0) * Base * (1 + Modifier / 100), 0)
Rem Next
Rem End Function
Rem
Rem Function DPSingleCost(SkillLevel, Base, Modifier)
Rem DPSingleCost = Application.Round(Sqr(2 * (SkillLevel + 1)), 0) * Base * (1 + Modifier / 100)
Rem End Function
Rem
Rem
End Sub

Merci pour votre aide

Configuration: Windows XP
Firefox 2.0.0.1