Macro excel vers OOo

Bonjour,

J'ai besoin de convertir deux macro Excel en OpenOffice, et je n'y connait rien en programmation OOobasic

Il s'agit d'une macro permettant de simuler des tirages e loto, d'en récupérer les résultats afin de les utiliser dans un cours de probabilités

Quelqu'un pourrait-il m'aider

Voici les macros VBA

Macro 1 :
Private Sub CommandButton1_Click()
Dim tabloto(1 To 49) As Integer
Dim tirage(1 To 6) As Integer
Dim numero, j, i, ligne_en_cours As Integer
Dim nom As String

Columns("A:A").Select
Selection.ClearContents
Range("A1").Select
Range("B1").Select

ligne_en_cours = Selection.Value

For i = 1 To 6
tabloto(i) = 0
Next i

For i = 1 To 6
Do
numero = 1 + Int(49 * Rnd)
Loop While tabloto(numero) = 1
'Cells(i, 1) = numero
tirage(i) = numero
tabloto(numero) = 1
Next i

For i = 1 To 6
j = i * 2
ActiveSheet.Cells(5, j).Select
Selection.Value = tirage(i)
ActiveSheet.Cells(ligne_en_cours, i + 16).Select
Selection.Value = tirage(i)

Next i

Range("B1").Select

Selection.Value = ligne_en_cours + 1
Range("A1").Select
End Sub

Macro 2

Private Sub CommandButton2_Click()
Dim i, j As Integer
Range("B1").Select
Selection.Value = 7
i = 7

ActiveSheet.Cells(7, 17).Select
Do
For j = 17 To 22
Selection.Value = ""
ActiveSheet.Cells(i, j).Select
Next j
i = i + 1
Loop While Selection.Value <> ""
Range("A1").Select
End Sub