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 ?