Trier par ordre Decroissant en ligne

bonjour a tous,

je souhaite faire une macro qui puisse me mettre par ordre decroissant selon le critere trouver sur la ligne 5 et cela a partir de la colonne 8

J'ai pu enregister une macro, mais malheuresement, elle marche mais uniquement sur la feuille ouverte visuellement .

Range("H3:BA49").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Sort Key1:=Range("H5"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal


Je souhaite donc trouver un code pour faire ce tri sur toute les pages.

??

Merci bien.