LibreOffice : Macro pour un bouton qui supprime plusieurs zones

Bonjour,

Comme l'indique le titre, je recherche une macro que je pourrais assigner à un bouton, pour effacer le contenu de plusieurs sélections de cellules continues. Pour être précis, ici les zones seraient : Q7:Q5000 et T7:T5000

J'ai bien trouvé (en cherchant sur internet) plusieurs macro, mais impossible de les décrypter et de me les approprier dans mon cas de figure.

Toutefois j'ai bien réussi à en trouver une qui supprime une seule sélection (ça fonctionne nickel)… et la voici :

Sub EffaceSelection
Dim oSheet As Object, oRange As Object

oSheet = thisComponent.Sheets.getByName("Mercuriale")
oRange = oSheet.GetCellRangeByName ("Q7:Q5000")
oRange.clearContents(com.sun.star.sheet.CellFlags.VALUE OR _
                com.sun.star.sheet.CellFlags.STRING OR _
               com.sun.star.sheet.CellFlags.FORMULA)
End Sub

Mais si je rajoute une seconde sélection (voir ci-dessous) : seule la première est prise en compte : de Q7 à Q5000.

Sub EffaceSelection
Dim oSheet As Object, oRange As Object

oSheet = thisComponent.Sheets.getByName("Mercuriale")
oRange = oSheet.GetCellRangeByName ("Q7:Q5000","T7:T5000")
oRange.clearContents(com.sun.star.sheet.CellFlags.VALUE OR _
                com.sun.star.sheet.CellFlags.STRING OR _
               com.sun.star.sheet.CellFlags.FORMULA)
End Sub

Je suppose que mon erreur doit être de l'ordre de la syntaxe, sur la façon de séparer les différentes zones ? Mais j'ai beau tester avec une virgule, point-virgule, avec et sans espace… impossible.
À moins que cette formule ne puisse pas être adaptée pour plusieurs sélections ?

Merci d'avance à ceux qui prendront un moment pour m'aider :)