introuvable dans le forum

Sub recherche()
Dim c As Range

With Worksheets("Feuil1").Range("a1:iu65536")
Var = "sur.xls"
    Set c = .Find(Var, LookIn:=xlValues, Lookat:=xlPart)
    If Not c Is Nothing Then
            Range(c.Address).Interior.ColorIndex = 3
    Else
            MsgBox "Pas de cellule avec ce fichier """ & Var & """ en référence"
    End If
End With

End Sub

Sub Mettre_EN_ROUGE_Cellules_avec_lien_externe()
Dim s As Worksheet, r As Range, Cell_Formules As Range
For Each s In Worksheets
    On Error Resume Next
    Set Cell_Formules = s.Cells.SpecialCells(-4123)
    For Each r In Cell_Formules
        r.Interior.ColorIndex = -1 * (InStr(1, r, ".xls]") = 0) * 3
    Next
Next
Set Cell_Formules = Nothing
End Sub