Sub affiche_les_villes()

' Déclaration de variables objets
Dim oMonDocument As Object, oMaSheet As Object, oMaCell As Object

' On travail sur le document actif
oMonDocument = ThisComponent

' oMaSheet devient Feuille1
oMaSheet=oMonDocument.Sheets.getByName("Feuille1")

'Déclaration d'une matrice
Dim Villes(3) As String 'indice de 0 à 2 sinon saisir OPTION Base 1

'Affectation de la matrice
Villes(0) = "Paris"
Villes(1) = "Madrid"
Villes(2) = "Londres"

'Affichage de la matrice (via une boucle For Next)
Dim i As Integer
For i = 0 To Ubound(Villes) Step 1
oMaCell = oMaSheet.getCellByPosition(0, i)
oMaCell.setString(Villes(i))
Next i
End Sub