Test page web via macro

Bonjour,

J'ai trouvé sur un forum un code qui me permet de tester si une url est valide ou non. L'inconvénient c'est que pour vérifier il faut entrer l'adresse dans une boite de dialogue et ensuite valide le test. Sur mon fichier il y aura beaucoup de lien donc les saisir 1 à 1 n'est pas possible.

Penser vous qu'il est possible de faire une vérification sur tout les liens sans les saisir et indiquer seulement ceux défectueux ?

Code :

Sub Test_page_Web_1()
URL_à_tester = InputBox("URL à tester ?", "validité de l'adresse Internet", "http://boursorama.fr")
On Error GoTo Err
Set fich = Workbooks.Open(URL_à_tester) 'ouvre l'URL
fich.Close (False) 'ferme l'URL
MsgBox "l'URL " & URL_à_tester & " est valide"
Exit Sub
Err:
MsgBox "l'URL " & URL_à_tester & " ne peut pas être ouvert"
End Sub

lien avec fichier : http://www.cijoint.fr/cjlink.php?file=cj201105/cijG1jxZzS.xls