Sub Test_page_Web_2()
Dim h As Hyperlink, I As Integer, J As Integer
I = 1
J = 1
For Each h In ActiveSheet.Hyperlinks
On Error GoTo ErrorHandler
Set fich = Workbooks.Open(h.Address) 'ouvre l'URL
fich.Close (False) 'ferme l'URL
Range("A" & I) = "l'URL " & h.Address & " est valide"
I = I + 1
Suite:
Next
Exit Sub
ErrorHandler:
Range("B" & J) = "l'URL " & h.Address & " ne peut pas être ouvert"
J = J + 1
Err.Clear
GoTo Suite
End Sub