XL 2013 Définir ma zone d'impression avec un nombre de ligne qui n'est pas fixe

derlig = Range("B15000").End(xlUp).Row
ActiveWorkbook.Worksheets(3).PageSetup.PrintArea = "$A$1:$H$" & derlig

Option Explicit

Sub Test()
Dim NbLignes As Long
    NbLignes = Feuil1.UsedRange.Rows.Count
    Feuil1.PageSetup.PrintArea = "$A$1:$H$" & NbLignes
End Sub

Option Explicit

Sub CoordonneesGraphes()
Dim Ch As ChartObject
Dim sNomGraphe As String
Dim Graphe As ChartObject
    ShDatas.Activate
    For Each Ch In ShDatas.ChartObjects
        sNomGraphe = Ch.Name
        Set Graphe = ShDatas.ChartObjects(sNomGraphe)
        With Graphe
            Debug.Print .TopLeftCell.Address, .BottomRightCell.Address
        End With
    Next Ch
    Set Graphe = Nothing
End Sub