XL 2016 VBA: Ne pas répéter lignes pour dernière page PDF

[shinozak]

Bonjour le forum,

Je cherche une macro qui permet de ne pas répéter les lignes pour la dernière page pour un export PDF.
J'ai réussi à créer la macro pour une impression(la fonction numéro page nous donne le numéro de la page pour une cellule donnée) mais je bloque pour un export PDF :/ :

Sub test()
nbPages = ActiveSheet.PageSetup.Pages.Count
x = numeroPage(Range("A147"))
ActiveSheet.PageSetup.PrintTitleRows = "$1:$8"
For k = 147 To 169
    If numeroPage(Range("A" & k)) <> x Then
    ActiveSheet.PrintOut from:=1, To:=nbPages - 1
    ActiveSheet.PageSetup.PrintTitleRows = ""
    ActiveSheet.PrintOut from:=nbPages, To:=nbPages
    Exit Sub
    End If
Next
ActiveSheet.PrintOut from:=1, To:=nbPages
End Sub