suprime ligne apres 2 ligne vide se suivent

[pralo]

bonsoir le forum
j'aurais besoin de votre aide s'il vous plait
j'espère que mes explication vont être claire
je laisse une ligne vide entre chaque lignes remplies pour écrire des notes après avoir imprimer
dans la plage ("A5:J44") j'aimerais supprimer les lignes vides après la dernière ligne remplie
faire de même pour la plage ("A45:J85")
puis ajuster la feuille en vertical avant d'imprimer
j'ai essayer des macros du forum mais les entres lignes que je voudrais conserver sont elles aussi supprimer
si quelqu'un a une idée
merci d'avance

 

[job75]

Bonjour pralo, le forum,

Sub Masquer()
Dim r As Range
For Each r In [5:44,46:85].Rows
    r.Hidden = Application.CountA(r) = 0
Next
End Sub

Sub Afficher()
Rows.Hidden = False
End Sub

Bonne journée.

 

[pralo]

bonjour job75, bonjour le forum
maintenant avec ton code je peux choisir
merci encore pour le temps que tu a passer pour moi
bon dimanche également