Macro pour insérer un pied de page

Bonjour à tous,

je cherche à insérer le texte "Fin de la page" dans le pied de page par une macro commande.

je vous remercie par avance.

Bonsoir

Pourquoi ne pas utiliser la commande "Affichage"... "Entête et Pied de page"... "Pied de page personnalisé" ?

Ou bien "Fichier"..."Mise en page"...etc ?

Ou bien je n'ai pas bien compris ton problème ?

Bonne continuation

Cajolyn

Bonjour faudouy

Peut-être est-ce là la solution cherchée ?

Private Sub Workbook_Open()
With ActiveSheet.PageSetup
'Bas de page gauche
.LeftFooter = "Fin de Page"
'Bas de page centre
.CenterFooter = "Fin de Page"
'Bas de page droite
.RightFooter = "Fin de Page" 
End With
End Sub

Cordialement

Joseph