Sub recherche_Click(mot)
Dim plage As Range
ligne = 9
For Each ws In Sheets
If ws.Name <> "Search Item" Then
For n = 1 To ws.Range("A65536").End(xlUp).Row
If InStr(UCase(ws.Range("A" & n)), UCase(mot)) <> 0 Then
Sheets("Search Item").Cells(ligne, 1).Select
Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=ws.Name & "!A" & n, TextToDisplay:=ws.Range("A" & n).Value
ligne = ligne + 1
trouve = True
End If
Next n
End If
Next ws
If Not trouve Then MsgBox ("No " & mot & " found in the file")
End Sub