Copie conditionnelle entre feuille Oo Calc

hello,

J'ai besoin pour traduire une macro excel en Oo 2.0 !!!!

Voila, j'ai fais une macro trés simple sur Excel dont voici le but:
Si, dans la première feuille, on inscrit une valeur dans une cellule de la première colonne (exemple : 3:1), la macro va chercher dans la seconde feuille les renseignements (à savoir des références) associées à cette valeur et les copie dans les deux cellules suivantes ( 3:2 et 3:3).

Sub Copie_conditionnelle()
Dim i As Integer
Dim j As Integer
For i = 3 To 13
For j = 3 To 13
If Worksheets(2).Cells(j, 1) = Worksheets(1).Cells(i, 1) Then
Worksheets(1).Cells(i, 2) = Worksheets(2).Cells(j, 2)
Worksheets(1).Cells(i, 3) = Worksheets(2).Cells(j, 3)
End If
Next
Next
End Sub

Si quelqu'un pouvait me donner un coup de pouce pour la traduire en Open office 2.0 ce serait sympa!!!
Merci