Salut Nanoune,
en postulant que tes 9 feuilles soient de structure identique, on peut imaginer que, sur chaque feuille :
- tu places la liste de tes catégories au même endroit, comme ici, en H1 ;
- tu fixes, comme ici (par exemple) la cellule [E1] comme cellule destinée à sélectionner la catégorie.
Y'a plus qu'à...
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'
Dim iRow%
'
If Not Intersect(Target, Sh.Range("E1")) Is Nothing Then _
iRow = Sh.Range("A:D").Find(what:=Target, lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlPrevious).Row: _
ActiveWindow.ScrollRow = iRow
'
End Sub
A+