Recherche de mot

Bonjour ,

je suis un peu embeté devant la macro suivante pour y inclure une petite donnée , je m'explique :

la macro qui suit est un petit moteur de recherche , elle me permet via une petite fenêtre de saisir un mot puis cette dernière va consulter toutes les feuilles du classeur et recenser dans une page choisie tout les mots trouvé qui correspondent à la saisie

comme j'obtiens une liste de mots identiques , j'aimerai pouvoir les différencier et ajouter à chaque mot trouvé le contenu de la cellule H4 de la feuille s'y rapportant , je ne vois pas comment m'y prendre

voici le code :

Sub recherche(mot)
On Error GoTo fin
ligne = 6
For Each Ws In Sheets
If Ws.Name <> "RECHERCHE DE MOTS" Then
With Ws.Cells
    Set c = .Find(mot, LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
         Sheets("RECHERCHE DE MOTS").Cells(ligne, 15).Select
         Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
          Ws.Name & "!" & c.Address, TextToDisplay:=c.Value
          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 ("Aucun  " & mot & " n'a été trouvé dans ce classeur ")
fin:
End Sub

En vous remerciant pour votre aide

j'ai omis d'ajouter mon fichier , que voila ..en vous remerciant pour tout conseil

cordialement, rocket

Salut le forum

Modification du code

         Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
          ws.Name & "!" & c.Address, TextToDisplay:=c.Value
          Selection.Offset(, 1) = Sheets(ws.Name).Range("$H$4")

Mytå

Merci infiniment Myta "pour avoir pris la peine d'examiner ma question !!!! .... ca marche pafaitement bien !