Bonjour Francis et Léa
Effectivement, comme le dit Léa, quelques petites corrections doivent apporter un plus :
Il est préférable de déclarer toutes les variables.
Cells(Rows.Count, 'f') peu être remplacer par Range('F65536')
Le code devient :
Sub Recherche()
Dim MotCherche As String
Dim ValTest As String
Dim Derligne As Integer
Dim n As Integer
Dim l As Integer
Application.ScreenUpdating = False
ValTest = ActiveCell.Value
Derligne = Cells(Rows.Count, 'f').End(xlUp).Row
Range(Cells(11, 1), Cells(Derligne, 1)).EntireRow.Hidden = True
n = 6
For l = Derligne To 11 Step -1
MotCherche = Application.Find(ValTest, Cells(l, n))
If Not (IsError(MotCherche)) Then
Cells(l, n).EntireRow.Hidden = False
End If
Next
Range('a1').Select
Application.ScreenUpdating = True
End Sub
Cordialement
CBernardT