Equivalent fonctions VBA excel et Scal Basic

Bonjour,

Je Cherche à adapter une macro créer sous Excel en VBA, cette macro ayant pour but de générer et d'imprimer des feuilles de comptages pour un inventaire, chaque borderau contenant plusieurs feuilles.
J'essaie de trouver l'équivalent de certaines fonction en Basic de Open Office mais apres quelques recherches sur le net, je sèche, si qqun connait l'équivalent des formules utiles notées dans la macro merci de me transmettre l'info.

Bonne Fin De Journée


Macro reportée ci-dessous

Sub edition_bordereaux()
'
' edition_bordereaux Macro
'

' rappel formules utiles
' impression ActiveWindow.SelectedSheets.PrintOut copies:=1,collate=True
' affectation valeur à une cellule Sheets("bordereau_lso").Cells(li3, col910).Value = compteur

'Declaration et initialisation des variables
Dim A As Byte, b As Byte

A = 0
b = 0

'Compare A à la valeur Maxi des LSO

compA:
b = 0
If (A > 3) Then 'nombre maxi de LSO moins 1
GoTo fin
Else
A = A + 1
'Compare b au nombre maxi de feuilles
compb:
If (b < 3) Then
b = b + 1

'affiche les valeurs des compteurs dans les cases
Sheets("bordereau_lso").Cells(3, 9).Value = A
Sheets("bordereau_lso").Cells(4, 10).Value = b
'imprime la feuille de LSO
Sheets("bordereau_lso").PrintOut copies:=1, collate:=True
GoTo compb
Else
GoTo compA
End If

End If
fin:
MsgBox ("Editions terminées")

End Sub

Configuration: Windows 2000
Firefox 2.0.0.12