Programmation oooBasic macro open office calc

Voila j'ai crée une macro qui permet de faire apparaitre dans une liste déroulante des mots qui sont écrits dans une feuille calc et une personne ouvre la boite de dialogue clique sur un mot de la liste déroulante appuie sur un bouton qui verifie et si le mot est le meme que sur la feuille alors il dis que c'est une bonne réponse sinon une mauvaise. Je voudrais savoir en quoi j'ai faux car le programme mais que j'ai tout le temps faux voici ma macro

Sub Verification

dim oDocument as object, oSheet as object, oCell as object,hasard as object,listed as object,juste as object,proposition as object,rep as object

oDocument=ThisComponent

oSheet=oDocument.Sheets.getByname("Feuille2")

hasard=oSheet.getCellByposition(8,1)

oCell=oSheet.getCellByposition(7,(hasard.getvalue))

listed=dlg2.getControl("ListBox1")

rep=listed.getSelectedItemPos

proposition=oSheet.getCellByposition((rep+1),hasard)

if (proposition.getString)=(oCell.getString) then

juste =oSheet.getCellByposition(8,2)

juste.setValue(1)

else

juste=oSheet.getCellByposition(8,2)

juste.setValue(0)

end if

end Sub

Sub question

Dim oDocument as object, oSheet as object, oCell as object,oCell2 as object, i as integer,moncontrole as object,listed as object, n as integer,progression as object

Dim hasard as object,gain as object

oDocument=ThisComponent

oSheet=oDocument.Sheets.getByname("Feuille2")

progression=oSheet.getCellByposition(9,1)

i=((Int(30*Rnd)+1)*(progression.getValue))

hasard=oSheet.getCellByposition(8,1)

hasard.setValue(i)

oCell=oSheet.getCellByposition(0,i)

moncontrole=dlg2.getControl("Label1")

moncontrole.text = oCell.getString()

gain=oSheet.getCellByposition(10,1)

moncontrole2=dlg2.getControl("Label3")

moncontrole2.text= gain.getString()

for n=1 to 3

oCell2=oSheet.getCellByposition(n,i)

listed=dlg2.getControl("ListBox1")

listed.addItem(oCell2.getString,n-1)

next n

end sub