mettons que je recherche "toto" (soyons original !)
"
Cells.Find(What:="toto", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
i = Selection.Row
Rows(i + 1 & ":" & i + 5).Select
"
voilà !
C bon comme ça ?