[VBA] Afficher au centre de l'écran, la dernière ligne utilisée d'une feuille (à l'ouverture d'un classeur).

Soit une feuille 1 contenant des données. A chaque ouverture du classeur, on souhaite afficher la dernière ligne de données au centre de l'écran :
 

DANS LE MODULE DE CODE DE L'OBJET THISWORKBOOK
Private Sub Workbook_Open() 
    With Worksheets("Feuil1") 
        .Activate 
        ActiveWindow.ScrollRow = .Cells.SpecialCells(xlCellTypeLastCell). _ 
            Row - (ActiveWindow.VisibleRange.Rows.Count \ 2) 
    End With 
End Sub

Cette Q&R a été trouvée sur myDearFriend! Excel Pages : https://www.mdf-xlpages.com/modules/smartfaq/faq.php?faqid=41