Probleme de macro Excel vers OpenOffice

PROBLEME D'EXPORTATION MACRO EXCELVERS OPENOFFICE

Bonjour,
j'ai fait la macro suivante dans excel:

Sub fiches_signature()
Dim civ As Integer, nom As String, prenom As String, mail As String, tel As String, adr As String, cp As String, ville As String, activite As String, datesign As String, info As Integer, publi As Integer, action As Integer
Dim num As Integer, suiv As Integer

num = InputBox("Numéro de la dernière ligne rentrée")

Do
num = num + 1

civ = InputBox("Civilité: 1.Mr 2.Mme 3.Mlle 4.Couple")
If civ = 1 Then
Cells(num, 1) = "Mr"
ElseIf civ = 2 Then
Cells(num, 1) = "Mme"
ElseIf civ = 3 Then
Cells(num, 1) = "Mlle"
ElseIf civ = 4 Then
Cells(num, 1) = "Couple"
End If

nom = InputBox("Nom")
Cells(num, 2) = nom

prenom = InputBox("Prénom")
Cells(num, 3) = prenom

mail = InputBox("Mail")
Cells(num, 4) = mail

tel = InputBox("Téléphone")
Cells(num, 5) = tel

adr = InputBox("Adresse")
Cells(num, 6) = adr

cp = InputBox("Code postal")
Cells(num, 7) = cp

ville = InputBox("Ville")
Cells(num, 8) = ville

activite = InputBox("Activité")
Cells(num, 9) = activite

datesign = InputBox("Date de signature")
Cells(num, 10) = datesign

info = InputBox("OK pour informations: 1.oui 2.non")
If info = 1 Then
Cells(num, 11) = "X"
End If

publi = InputBox("OK pour publication: 1.oui 2.non")
If publi = 1 Then
Cells(num, 12) = "X"
End If

action = InputBox("OK pour actions: 1.oui 2.non")
If action = 1 Then
Cells(num, 13) = "X"
End If

suiv = InputBox("Continuer? 1.Oui 2.Non")
Loop While suiv <> 2

End Sub



elle fonctionne correctement sous excel mais en la copiant dans open office, ça ne fonctionne plus du tout;
j'ai un "runtime error BASIC. sous-procédure ou procédure de fonction non définie." à la ligne " Cells(num, 1) = "Mr" " (si je rentre 1 comme résultat à la première inputbox, bien sûr)
ça doit être une erreur de syntaxe que je dois avoir tout le long de ma macro (vu que je ne fais que des inputbox )

merci de m'éclairer.