XL 2010 vba page web comment effectuer clic sur une grille?

Bonjour,
En macro vba excel 2010 sous Win 7, je voudrais effectuer un clic sur une grille à clavier virtuel...avec cette boucle vba sur la balise span
Set Helem = MaPageHtml.getElementsByTagName("span")
For j = 14 To Helem.Length - 1
Range("A" & (j + 1)).Value = Helem(j).getAttribute("class") & " / " & helem(j).getAttribute("onmouseup")
If Range("A" & (j + 1)).Value Like "*pos-p" Then Helem(j).Click
Next j
Mais le click ne s'effectue pas...comment lancer cette function(e, o) sur onmouseup ???

le code html
<div class="clavier-virtuel-item">

<span class="case-xw pos-f" onmouseup="(function(e, o){ if(e.which){var tmp=e.which;if(tmp != 0 &amp;&amp; tmp != 1){return;}} else if(e.button){var tmp=e.button;if(tmp != 0 &amp;&amp; tmp != 1){return;}} clickClavierVirtuel(o); })(event, this)"></span>


Merci pour votre aide