Sous libreoffice calc macro

Bonjour,

je cherche à réaliser une macro pour trier une colonne de données sur une Feuille1 en vue de faire une liste de ces valeurs non nulles sur Feuille2.

j'ai déjà ce code qui malheureusement ne fonctionne pas :

REM  *****  BASIC  *****

Sub FiltreValeursNonVides
    Dim Feuille As Object
    Dim PlageSource As Object
    Dim PlageCible As Object
    Dim Cellule As Object
    Dim Valeur As Variant
    Dim i As Integer
    Dim LigneCible As Integer
    
    ' Obtenir la feuille active
    Feuille = ThisComponent.getCurrentController().getActiveSheet()
    
    ' Sélectionner la colonne dont vous souhaitez extraire les valeurs non vides (par exemple, colonne B)
    PlageSource = Feuille.getCellRangeByName("B1:B500") ' Changer la plage source au besoin
    
    ' Sélectionner la cellule de départ de la colonne cible (par exemple, E1)
    PlageCible = Feuille.getCellRangeByName("E1") ' Changer la cellule de départ de la colonne cible
    LigneCible = 0
    
    ' Effacer le contenu de la colonne cible
    PlageCible.clearContents(1023)
    
    ' Parcourir la plage source pour copier les valeurs non vides dans la colonne cible
    For i = 0 To PlageSource.getRows().getCount() - 1
        Cellule = PlageSource.getCellByPosition(0, i)
        Valeur = Cellule.getString() ' Utiliser getString() pour obtenir la valeur en tant que texte
        
        If Trim(Valeur) <> "" Then
            PlageCible.getCellByPosition(0, LigneCible).setString(Valeur)
            LigneCible = LigneCible + 1
        End If
    Next i
End Sub

merci d'avance

cordialement

Windows / Firefox 117.0