Remonte en haut les ascenseurs horizontaux et verticaux et place le curseur sur la première cellule de la première feuille

Sub DEBUT_FEUILLE()
'
'
' Macro enregistrée le 30/09/2009 par sgouzien
' parcours tous les feuilles du fichier Excel Courant, et dans chaque feuille,
' remonte en haut les ascenseurs horizontaux et verticaux,
' place le curseur sur la première cellule
' rend la première feuille active
' et place le curseur sur la première cellule de la première feuille
'
Dim WS As Worksheet

' parcours tous les feuilles du fichier, et dans chaque feuille :

For Each WS In ActiveWorkbook.Worksheets

'

    WS.Activate
   
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
    Range("A1").Select
   
   
   
 
Next
ActiveWorkbook.Worksheets(1).Activate
End Sub