Sub TEST_PAS_OK()
Dim nbc&, nwk As Workbook, s As Worksheet, tp&, dp&
Application.ScreenUpdating = False
nbc = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 3
Set nwk = Workbooks.Add
With nwk
For Each s In .Worksheets
With s
With .Range("A1:G112")
.FormulaLocal = "=ALEA()"
.Value = .Value
End With
End With
Next
[COLOR=SeaGreen]'---> code JNP[/COLOR]
For Each s In .Worksheets
tp = tp + s.HPageBreaks.Count + 1
Next
For Each s In nwk.Worksheets
With s
.PageSetup.RightFooter = "&P+" & dp & "/" & tp
dp = dp + s.HPageBreaks.Count + 1
End With
Next
[COLOR=SeaGreen]'<--- fin code JNP[/COLOR]
End With
Application.SheetsInNewWorkbook = nbc
End Sub