Convertir Macro Excel > OpenOffice

Bonjour à tous,

Je n'arrive malheureusement pas à convertir ma macro étant très basique pourtant de VBA sous Excel à BASIC sous OpenOffice.

Voici la macro fesant parti de l'évènement Change :

Private Sub Worksheet_Change(ByVal Target As Range)

If IsEmpty(Range("B" & ActiveCell.Row)) = False Then
    Range("A" & ActiveCell.Row + 1).Select
End If
End Sub

Merci pour votre aide.

Cédric

Je voudrais simplement trouver une boucle sous OpenOffice qui sélectionne la ligne en dessous...