Récupération du lien hypertexte en VBA Excell

Boujour, je vais essayer d'être clair.

Voici le problème , je tente de faire une petite macro en excel qui irait récupérer des données sur internet. Mais le problème c'est que je suis bloqué au recherche, je ne sais pas aller plus loin car j'utilise une requete du style :
Dim Film, Film(100), Adresses(101)
Film = InputBox("Quel est le titre a trouver ?")
Adresses(1) = "URL;http://www.mediadis.com/products/search.asp?t=19&kw=" & Film
With ActiveSheet.QueryTables.Add(Connection:= _
Adresses(1), Destination _
:=Range("A1"))
.Name = "search.asp?t=19&kw=minority"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = True
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With

Ensuite je désire récuperer les divers liens pour les proposer sous forme de UserForm Mais je n'arrive à rien !

Please Help Me