Exclure un pied de page sur 1 feuille

Bonjour à tous

Voici mon problème :

Dans le ThisWorkbook d'un classeur, je demande la mise en place des pieds de pages de toutes les feuilles du classeur.

Or, sur deux feuilles (Lili et Lulu), je ne voudrais pas le pied de page droit, par contre je conserve l'automatisme du pied de page gauche et milieu !

Pourriez vous me conseiller pour réaliser cette manip

Merci d'avance de votre aide précieuse

Ci-joint la macro concernée (Aide de Joseph)

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim Police As String

Dim Taille As String

Dim TexteLeft As String

Dim TexteCenter As String

Dim TexteRight As String

'****VARIABLES À DÉFINIR SELON TES BESOINS****

Police = "Arial"

Taille = 6

TexteLeft = Range("AX1000").Value

TexteCenter = Range("AX1001").Value

TexteRight = Range("AX1002").Value

With ActiveSheet

With .PageSetup

.LeftFooter = "&""" & Police & ",normal""" & "&" & Taille & TexteLeft

.CenterFooter = "&""" & Police & ",normal""" & "&" & Taille & TexteCenter

.RightFooter = "&""" & Police & ",normal""" & "&" & Taille & TexteRight

End With

.PrintPreview

End With

End Sub

EST CE que je dois mettre cette macro dans chaque feuille ?

Bonjour,

Juste à mettre sous condition

        If ActiveSheet.Name <> "Lili" And ActiveSheet.Name <> "Lulu" Then _
          .RightFooter = "&""" & Police & ",normal""" & "&" & Taille & TexteRight

Cordialement.

Bonjour MFerrand

Affaire soldée !!

Merci beaucoup et bon courage