Calc : Insérer une feuille dans le classeur

La fonction suivante permet d’insérer une feuille dans un classeur contenant plusieurs feuille :

Function Vincent_Inserer_Feuille()

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

    Niveau = 0 
    for x = 0 to NbFeuil - 1
        oUneFeuille = oFeuil(x)
        if oUneFeuille.Name = "Bilan" then
            Niveau = 1
         end if
    next x
    if Niveau = 0 then
       oFeuil = oFichier.createInstance("com.sun.star.sheet.Spreadsheet")
       oFichier.Sheets.insertByName("Bilan", oFeuil)
    end if
End function