Macro - Vérifier validité celulle ayant une formule de type LIEN_HYPERTEXTE()

Sub TestLiens()
Dim i As Long, Formule As String, Chemin As String
    With Sheets("Feuil1")
    For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
        Formule = .Cells(i, 1).Formula
        If Formule Like "=HYPERLINK*" Then
            Formule = Replace(Formule, "=HYPERLINK(", "")
            Chemin = Evaluate(Split(Formule, ",")(0))
            If Dir(Chemin) = "" Then
                .Cells(i, 1).Interior.Color = RGB(255, 0, 0)
            Else
                .Cells(i, 1).Interior.Pattern = xlNone
            End If
        End If
    Next i
    End With
End Sub