macros open office

je voudrais passer de Excel à OO et convertir la fonction suivante
je ne trouve pas l'équivalent de range: il s'agit de balayer un ensemble de cellules pour en concaténer le contenu avec un séparateur
Merci Si quelqu'un pouvait m'aider à la convertir en Open Office, car je veux commencer à m'en servir (je ne trouve pas l'équivalent de RANGE)


Function Concat(Champ, Separateur)
' on peut ajouter une limite maxi s'il faut limter la longueur du résultat:
' Function Concat(Champ, Separateur, maxi)
Dim NbCell, NbElements, x, y, z As Integer
NbCell = Champ.Count 'nombre de cellules à traiter
For x = 1 To NbCell
If Champ(x) <> "" Then
If Concat <> "" Then Concat = Concat & Separateur 'premier champ
Concat = Concat & Champ(x)
End If
Next
End Function