Ouverture et sélection de cellule

Bonjour les amis

J'aimerais déclencher l'ouverture de feuille 1 et faudrait qu'une fois sélectionner, qu'il ait se ranger à la cellule A1.

J'ai essayé ce code, mais le rangement n'a pas abouti...

Sub PC_ouverture()

    Sheets(1).Select
    Sheets(1).Range ("A1")
End Sub

Bonjour

Module ThisWorkbook, procédure "système" Open

@ bientôt

LouReeD