XL 2013 Impression en page figée

[Lucie61]

Bonjour le Forum

J'espère que vous vous portez bien !!

J'ai imbriqué pas mal de données en vba qui me permettent de transposer mes données comme je le souhaitais
Sauf que lors de l'impression, je n'arrive pas à trouver une solution qui me permet de figer le visuel pour chaque feuille imprimer.

Je m'explique :
Ma macro va récupérer les données contenues dans un Tableau Croisé Dynamique puis les copier coller sur un autre onglet (cet onglet Feuil3 représente la page qui va être imprimer avec les données qui varient selon un regroupement de données).
Selon le regroupement de données, ma macro va cacher les lignes inutilisées.
De ce fait, le visuel standard que je veux n'est pas fixe.

Ce que je veux lors de l'impression :

Ce que je NE veux PAS :

Ma partie avec zone de destruction est cachée et le cadre mis est plus petit et ne prend pas toute la feuille.
Est-il possible de faire en sorte que la partie en haut de la ligne 1 à 4 soit figées
et cette zone reste visible ? :

Il faut savoir qu'entre les lignes 5 à 124, les données sont variables, je peux en avoir plus ou moins mais elle ne dépassent pas les lignes entre 5 et 124.

Je vous met en PJ mon fichier avec la macro.

Merci par avance de votre retour et de votre aide

Lucie61

 

[kiki29]

Salut, qqch du genre, enfin si j'ai bien compris .....

Option Explicit

Sub tst()
Dim LastRow As Long
    LastRow = Feuil3.Range("A124").End(xlUp).Row + 1
    Feuil3.Rows(LastRow & ":124").EntireRow.Hidden = True
    '   Routine d'impression
    Feuil3.Rows(LastRow & ":124").EntireRow.Hidden = False
End Sub

 

[Lucie61]

Bonjour Kiki

Je te remercie de ton retour, mais J'ai essayé de le mettre et tester mais cela me cache ma zone de fin, il faut que je puisse voir les lignes 125 à 136.
Merci de ton retour

Lucie61