Sub visu(feuille, num)
With feuille
Set k = .Columns(8).Find(num)
If k Is Nothing Then MsgBox ("Ce rapport n'existe pas."): Exit Sub
Set debfiche = k.Offset(-11, -7)
Set fiche = .Range(.Cells(debfiche.Row, 1), .Cells(debfiche.Row + 29, 11))
fiche.Select
ActiveWindow.ScrollRow = debfiche.Row
End With
End Sub