Mise en page et entête

Bonjour

J'ai cette macro dans un de mes fichiers excel :

Sub miseenpage()
Dim Sh As Worksheet

For Each Sh In Worksheets
Sh.PageSetup.PrintArea = "$Ap$10:$ax$71"
Next Sh
End Sub

Mais je voudrais avoir toujours Ap1 à Ax5 qui s'imprime comme entête et avoir toujours mon choix de ligne à imprimer. Pouvez-vous m'aider car je ne sais pas comment faire :(

Merci beaucoup

Salut,

Essaie ainsi :

Sub miseenpage()
    Dim Sh As Worksheet

    For Each Sh In Worksheets
        Sh.PageSetup.PrintTitleRows = "$1:$5"
        Sh.PageSetup.PrintArea = "$Ap$10:$ax$71"
    Next Sh
End Sub

Cordialement.

Super j'ai fait le test et tout fonctionne super bien

Merci beaucoup