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