pied de page personnalisé

Salut a tous,

Besoin d'un ptit coup de pouce SVP.

J'ai crée une macro pour afficher un pied de perso avec le chemin complet du fichier, mais je n'arrive pas a mettre aussi le nom de la feuille :-(

ci joint les codes utilisés

Sub Pied_Page()
Dim Repert As String
Dim Fichier As String
Dim Feuille As String
Repert = ActiveWorkbook.Path
Fichier = ActiveWorkbook.Name
With ActiveSheet.PageSetup
.LeftFooter = Repert & "\" & Fichier

End With

End Sub

Merci a ceux qui pourrons m'aider

Phoenix