Bonjour Solange,
Deux propositions :
Pour que la cellule active soit 'AA152', uniquement dans la feuille active à l'ouverture du classeur.
Private Sub Workbook_Open()
For Each feuille In ThisWorkbook.Sheets
Range('AA152').Select
Next feuille
End Sub
A l'ouverture du classeur, comme à chaque changement de feuille, la cellule active devient 'AA152'
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each feuille In ThisWorkbook.Sheets
Range('AA152').Select
Next feuille
End Sub
Bonne journée