Sub test()
recherche "toto"
End Sub
Private Sub recherche(mot)
Dim Sh As Worksheet, wsRech As Worksheet, CountRech&
Set wsRech = Worksheets("recher")
CountRech = 1
For Each Sh In Sheets(Array("Index", "Données"))
For i = 1 To Sh.Range("A65536").End(xlUp).Row
If InStr(UCase(Sh.Range("a" & i)), UCase(mot)) <> 0 Then
wsRech.Cells(CountRech, 1) = Sh.Cells(i, 1)
wsRech.Cells(CountRech, 1).Hyperlinks.Add _
Anchor:=wsRech.Cells(CountRech, 1), _
Address:="", _
SubAddress:=Sh.Name & "!a" & i, _
TextToDisplay:=Sh.Range("a" & i).Value
CountRech = CountRech + 1
trouve = True
End If
Next i
If Not trouve Then
MsgBox ("Pas de " & mot & " trouvé dans ce fichier")
End If
Next
End Sub