Creation macro trouvant la valeur max et allant a cette valeur

Bonjour,

Je souhaiterais créer une macro permettant de trouver la valeur MAX des cellules A166 à A300.
Une fois que cela et fait je souhaiterais que le curseur la sélectionne automatiquement, et ainsi éviter que les gens aient à faire défiler vers le bas leur écran.
La particularité c'est qu'il a beaucoup d'onglet et naturellement la macro doit fonctionner sur l'ensemble du classeur (je préfère préciser)

Je débute totalement en macro, merci pour votre précieuse aide.

Bonjour,

Une façon de faire:

Sub TrouveMax()
    For Each Sh In ThisWorkbook.Sheets
        Set ValMax = Sh.Range("A160:A300").Find(WorksheetFunction.Max(Sh.Range("A160:A300")))
        Sh.Activate
        Range(ValMax.Address).Select
    Next Sh
End Sub

Parcours les feuilles du classeur pour y trouver la premiere valeur max dans la plage (A160:A300)
Active la feuille et selectionne la cellule puis passe à la prochaine feuille.

A+