[XL-2003] Probléme macro recupération de données

Bonjour ,
je viens solliciter votre aide pour une macro de récupération de données web.
Voilà la macro:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 Set O = IE.Document.getElementsByTagName("br")
        For Each OI In O
            If OI.innerText <> " Retour à l'accueil de pmu.fr" Then
                Set OIS = OI.getElementsByTagName("br")
                L = L + 1
                With Cells(L, 1)
                    .Value = OIS.Item(0).innerText
                End With
                With Cells(L, 2)
                    .Value = OIS.Item(1).innerText
                End With
            End If

Et je voudrais récupérer le chiffre dans cette partie du code source de la page sachant qu'il y en a 6 a récupérer
<br />7000 €</span></td>

Je ne sais pas si c'est assez compréhensible =(
Merci d'avance à ceux qui m’aiderons ;)