LibreOffice - macro : création d'onglet après le dernier onglet existant

Bonjour,

J'ai une macro qui fonctionne sur Excel mais depuis peu je reviens vers le libre ... ;-)

Je souhaite créer un onglet qui porte le nom du contenu des cellules (I1 à I30) tout va bien sauf que libreOffice me les met en premier et en ordre inverse alphabétique.
Elle est en dessous ou alors j'ai tout faux !

Merci de votre aide !
Cordialement,


Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Sub creereleve()
Sheets("crééeleve").Select
For Each cell In Range("I1:I30")

Set feuille = Worksheets.Add(After:=Worksheets(Worksheets.Count))

feuille.Name = cell.Value
Next cell
End Sub