XL 2021 Mise en page pour imprimer un fichier trié et filtré

Sub IMPAYES()

Dim ws As Worksheet
Set ws = ActiveSheet

Application.ScreenUpdating = False

' Déprotection
ws.Unprotect

' Mise en page
With ws.PageSetup
    .LeftHeader = "Ass JARDINS FAMILIAUX LAVAL"
    .CenterHeader = "&11 &15IMPAYES"
    .RightHeader = "Tous sites"
    
    .LeftFooter = ""
    .CenterFooter = "Page &P / &N"
    
    '***A tester ces solutions à toi de choisir
    .RightFooter = Format(Date, "[$-fr-FR]dddd dd mmmm yyyy") ' Tu auras ==>  16 février 2026
    'ou bien
    '.RightFooter = Format(Date, "dd/mm/yyyy") ' Tu auras ==>  16/02/2026
    '****
    
    .Orientation = xlLandscape
    .Draft = False
    .Zoom = 100
End With

' Suppression filtres existants si besoin
If ws.AutoFilterMode Then ws.AutoFilterMode = False

' Application des filtres
With ws.Range("$A$1:$CT$450")
    .AutoFilter Field:=5, Criteria1:="<>"
    .AutoFilter Field:=15, Criteria1:="="
End With

' Affichage des lignes 2 et 3
ws.Rows("2:3").Hidden = False

' Aperçu avant impression
ws.PrintPreview

' Protection feuille
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Application.ScreenUpdating = True
End Sub