Remise en ordre d'un fichier à la fermeture

Bonjour à tous,

Je suis à la recherche d'une macro qui me permettrait, à la fermeture du fichier, de remonter à la première ligne d'encodage et ce avec les volets figés.

J'ai utilisé la commande suivante, mais le fichier ne remonte pas, seule les commandes de sauvegarde et "Range("A1").Select fonctionnent.

Pourriez-vous m'aider sur ce problème.

En vous remerciant d'avance.

Inguyone

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Range("A1").Select
    SendKeys "{HOME}"
    ActiveWorkbook.Save

Fin:
   ActiveWorkbook.Close

End Sub

Salut Inguyone et le forum

ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1

A+

Un tout grand merci pour ce code, c'est exactement ce qu'il me fallait.

Une très bonne journé et sorry pour la réponse tardive, pas connecté depuis hier.

Inguyone