filtrer lignes sur clic dans une cellule

Sub test()
Dim marecherche As String, i As Integer, c As Range
marecherche = Range("E9")
If marecherche = "" Then Exit Sub
For i = 13 To Range("A65536").End(xlUp).Row
Set c = Nothing
Set c = Range("D" & i & ":I" & i).Find(marecherche, , xlValues, xlWhole, , , False)
If c Is Nothing Then Rows(i).Hidden = True
Next i
End Sub

Sub test()
Dim marecherche As String, i As Integer, c As Range
marecherche = ActiveCell
If marecherche = "" Then Exit Sub
For i = 10 To Range("A65536").End(xlUp).Row
Set c = Nothing
Set c = Range("A" & i & ":H" & i).Find(marecherche, , xlValues, xlWhole, , , False)
If c Is Nothing Then Rows(i).Hidden = True
Next i
End Sub