Beug dans mon code...?merci les gens!!!!!!!!!

Bonjour,
je veux créer une macro qui gère un bouton sur OOo.calc. Celui ci est que lorsque je crique sur mon bouton "facture", ça me renvoie a la feuille nommée facture, qui se trouve dans le meme classeur que le bouton, mais le programme que j'ai crée m'ouvre un nouveau classeur avec nouvelle feuille vierge.
Voici mon programme

Sub Main
Dim mNoArgs()
Dim oDesktop As Object
Dim oDocument As Object
Dim sUrl As String
oDesktop = createUnoService("com.sun.star.frame.Desktop")
sUrl = "private:factory/scalc"
oDocument = _
oDesktop.LoadComponentFromURL(sUrl,"_blank",0,mNoArgs())
End Sub

qu'est ce qui ne va pas??
merci pour votre aide