L'Aide de VBA ! Ça existe !
A l'ouverture d'un classeur, l'évènement Activate du classeur se produit, mais pas celui de la feuille qui se trouve être en position active à l'ouverture (l'évènement Worksheet.Activate ne se produit que lorsque la feuille est effectivement activée, n'étant pas préalablement active).
Si ta procédure est commune à toutes les feuilles (sinon tu testes pour identifier la feuille active...), tu places dans Workbook_Open :
ActiveSheet.Range("A1") = 1
selon ton exemple...