Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ThisWBPath As String
Dim NomDeLaFeuille As String
Dim k As Integer
For k = 1 To Sheets.Count
NomDeLaFeuille = Sheets(k).Name
ThisWBPath = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
Sheets(NomDeLaFeuille).PageSetup.LeftFooter = ThisWBPath & " / &A"
Next k
End Sub