Transcription excel=>openoffice (très court)

Bonjour les pros de l'info, je cherche à transcrire cette macro pour open office... Ce serait cool de m'aider :D

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 d'avance