Calc fonction personalisée

Bonjour,
J'ai besoin sous calc d'une fonction qui masquerai les lignes j'ai essayé en tentant un bricolage c'est à dire en créant une macro qui masque les lignes mais y a un truc. cela donne quelque chose comme ça :

Function MASQUERLIGNE()

rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:HideRow", "", 0, Array())

end Function

1. il faudrait que ça marche
2. il faudrait que je puisse l'enregistrer de manière à l'avoir avec l'assistant fonction
3 merci à tous
patrick