Sub afficher()
Range("a1").select
ligne = Range("A5:I100").Find(What:=Range("l4"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
Rows("5:100").Hidden = True
Rows(ligne).Hidden = False
End Sub
Sub retour()
Rows("5:100").Hidden = False
End Sub