Sub test()
'on choisit la feuille et le mot
recherche Sheets("index"), "titi"
End Sub
Private Sub recherche(Feuille As Worksheet, mot As String)
With Feuille
.Activate
For n = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If InStr(UCase(.Range("a" & n)), UCase(mot)) <> 0 Then
.Cells(n, 1).Hyperlinks.Add Anchor:=.Cells(n, 1), Address:="", SubAddress:= _
.Name & "!a" & n, TextToDisplay:=.Range("a" & n).Value
trouve = True
End If
Next n
End With
If Not trouve Then MsgBox ("Pas de " & mot & " trouvé dans ce fichier")
End Sub