Bas de page VBA

Bonjour,



En recherchant sur les forums j'ai réussi a produire ceci :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "modèle" Then
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = Sheets("modèle").Range("A1")
.CenterFooter = ""
.RightFooter = ""
End With
Else
Cancel = True
MsgBox "Vous ne pouvez pas imprimer sans être dans l'onglet modèle"
End If
End Sub

Ça fonctionne très bien par contre est-ce qu'il y aurait moyen que le bas de page se crée sur toutes les onglets du classeur ?

Merci de votre temps !