Sub b_insertion_NUMPages()
[COLOR=SeaGreen]' insertion des numéros de pages à ma manière[/COLOR]
Dim s As Worksheet, tp As Long
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Sheets("Feuil1").Activate
For Each s In Worksheets
tp = tp + s.HPageBreaks.Count
Next
For Each s In Worksheets
With s
.PageSetup.RightFooter = "&P" & "/" & tp
End With
Next
End Sub