Microsoft 365 Exporter en PDF avec une mise en page automatique via un bouton

Bonjour,

J'ai créé un macro avec un bouton pour exporter mon fichier excel vers un PDF. Mais lorsque je rajoute des lignes celles-ci ne sont pas prises en compte. Je ne sais pas comment l'indiqué dans ma macro :
ub Exporter_PDF()
'
' Exporter_PDF Macro
'

'

Sheets("EtatNavette").Select
premLigneVisa = 1
ligDepVisa = 1
dernlignevisa = 0
Do While Range("C" & ligDepVisa + dernlignevisa + 1) <> ""
dernlignevisa = dernlignevisa + 1
Loop

premColVisa = 7
ColDepVisa = 7
derncolvisa = 0
Do While Cells(7, ColDepVisa + derncolvisa + 1) <> ""
derncolvisa = derncolvisa + 1
Loop


'Zone impression pour onglet suivi_visa
Range(Cells(4, 2), Cells(dernlignevisa + 7, derncolvisa + 1)).Select
Range(Cells(4, 2), Cells(dernlignevisa + 7, derncolvisa + 1)).Name = "zone_impression_T3A"


'Enregistrement du fichier

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"P:\II221400 - L15 SUD - TRAVAUX\AMENAGEMENTS_T3A\03_TRANSVERSE\2. PowerBI\ISS\Etat navette\Etat_navette_ISS.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True


MsgBox "Le PDF a été généré dans le répertoire dans lequel se trouve ce fichier"


End Sub

Lorsque je clique sur le bouton cela ne prend pas en compte les lignes ajoutées. Pourriez-vous me dire ce que je dois ajouter ?

D'avance merci.