Vérification d'hyperliens sur le web.

Sub Test_page_Web()
  Dim DerLig As Long, Lig As Long, FlgSB As Boolean, Sht As Worksheet
  Dim IEHandle As Long, numURL As Long, ValURL As String
  ' Ouvre Internet Explore
  IEHandle = OuvreInternet("Test_validité", 1, vbNullString, vbNullString, 0)
  FlgSB = Application.DisplayStatusBar
  Application.DisplayStatusBar = True
  ' Pour chaque feuille du classeur
  For Each Sht In ActiveWorkbook.Sheets
    Sht.Activate
    ' Récupérer la dernière ligne du tableau
    DerLig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
    ' Pour chaque ligne on teste les lien
    For Lig = 2 To DerLig
      ' Récupérer la valeur du lien
      ValURL = Range("A" & Lig).Value
      ' Vérifier si c'est un lien correcte : HTTP://
      If Left(ValURL, 4) = "http" Then
        ' Ouvrir la page web du lien
        numURL = InternetOpenUrl(IEHandle, ValURL, vbNullString, ByVal 0&, &H80000000, ByVal 0&)
        ' Si le Handle est égale à zéro = lien mort
        If numURL = 0 Then
          Range("A" & Lig & ":I" & Lig).Interior.ColorIndex = 3
          Application.StatusBar = "Test de la ligne : " & Lig & " - " & ValURL & " = TEST ERREUR"
        Else
          ' sinon lien OK
          Application.StatusBar = "Test de la ligne : " & Lig & " - " & ValURL & " = TEST OK"
        End If
        InternetCloseHandle numURL  'ferme la page
      End If
    Next Lig
  Next Sht
  Application.DisplayStatusBar = FlgSB
  InternetCloseHandle IEHandle  'ferme Internet
End Sub