Macro

Bonjour,

J'ai une macro de recherche que j'ai trouvé sur votre site et que j'ai déjà un peu modifié pour pouvoir faire mes recherches mais je voudrais ajouter une fonction supplémentaire.

A la feuil2 lorsque j'utilise la cellule A2 pour lui demander ce que je recherche et qu'il me saisi en ligne A à C toutes les données. Est.ce possible que si je double clique sur une donnée recherchée ca me renvoie à la feuil1 où se situe l'information (un peu un retour à l'information de base). Est.ce que quelqu'un peut m'aider à compléter cette macro ?

Merci d'avance pour votre aide.

Sub cherche_texte()
Dim adr As String
li = 7
With Sheets("Feuil2")
tro = .Range("a2")
.Range("a7:a1000") = MEI
.Range("b7:b1000") = MEI
.Range("c7:b1000") = MEI

End With
With Sheets("Feuil1").Range("C19:J22")
Set c = .Find(tro, LookIn:=xlValues)
If Not c Is Nothing Then
preadr = c.Address
Do
adr = c.Row
Sheets("Feuil2").Cells(li, 1).Value = Cells(adr, 3) & "-" & Cells(adr, 6)
Sheets("Feuil2").Cells(li, 2).Value = Cells(adr, 9)
Sheets("Feuil2").Cells(li, 3).Value = Cells(adr, 8)
li = li + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> preadr
End If
End With
End Sub