Calc : Ajouter des données dans une cellule

La fonction suivante permet d’ajouter des données dans une cellule d’un feuille dans un classeur :

Function Vincent_Modif_Donnees()

Dim oFichier As Object
Dim oFeuil As Object
Dim oCells As Object
Dim oSelect As Object
Dim oDestination As Object

    oFichier = thisComponent
    oFeuil = oFichier.sheets
    oDestination = oFeuil.getByName("Bilan")
    With oDestination
        .GetCellRangeByName("A1").string = "Modifier les données la cellule A1"
        .GetCellRangeByName("A2").string = "Modifier les données la cellule A2"
    End With
End Function