Bonsoir,
S'il n'y aucune cellule vide dans ta colonne avant la dernière utilisée :
Private Sub Workbook_Open()
Worksheets("MaFeuille").Activate
Range("A1").End(xlDown).Select
End Sub
Ou bien si tu limites le nb de données possible à 5000 par exemple, en remontant cette fois à partie de la cellule A5000 :
Private Sub Workbook_Open()
Worksheets("MaFeuille").Activate
Range("A5000").End(xlUp).Select
End Sub