Recherche avec VBA

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim c As Range, adr1 As String
    If Target.Font.Color = 15773696 Then
        adr1 = Target.Address
        Set c = Cells.Find(Target.Value, , xlFormulas, xlWhole)
        If c.Address = adr1 Then Set c = Cells.FindNext(c)
        If c Is Nothing Or c.Address = adr1 Then
            MsgBox "Non trouvé"
        Else
            Application.EnableEvents = False
            If c.Column > 1 Then Set c = c.Offset(, -1)
            If c.Row > 1 Then Set c = c.Offset(-1)
            Application.Goto c, True
            Application.EnableEvents = True
        End If
    End If
End Sub