Lien hypertexte dans une Macro

Bonjour,


J'ai récupéré un moteur de recherche excel que je voudrai utiliser pour repérer les livres de chez moi.
Par contre sur le résultat affiché, il y a un lien hypertexte automatique que je ne veux pas.
Comment supprimer ce lien hypertexte auto dans la Macro ?

Voici la macro :


Sub recherche(mot)
On Error GoTo fin
ligne = 9
For Each ws In Sheets
If ws.Name <> "Recherche" Then
With ws.Cells
Set c = .Find(mot, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets("Recherche").Cells(ligne, 2).Select
Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!" & c.Address, TextToDisplay:=c.Value
Sheets("Recherche").Cells(ligne, 3) = c.Offset(, 1)
Sheets("Recherche").Cells(ligne, 4) = c.Offset(, 2)
Sheets("Recherche").Cells(ligne, 5) = c.Offset(, 3)
Sheets("Recherche").Cells(ligne, 6) = c.Offset(, 4)
ligne = ligne + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
trouve = True
End If
End With
End If
Next ws
If Not trouve Then MsgBox ("Pas de " & mot & " à Rognac")
fin:
End Sub


Merci
A+++