Comment afficher Page X / Y sur chaque feuille

Dim ws As Worksheet
For Each ws In Worksheets
    ws.Range("A1").Value = "Feuille : " & ws.Index & " / " & Worksheets.Count
Next

Option Explicit
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Range("A1").Value = "Feuille : " & ws.Index & " / " & Worksheets.Count
Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim ws As Worksheet
    Dim x As Integer, wc As Integer
    For Each ws In Worksheets
        If ws.Visible = False Then wc = wc + 1
    Next
    For Each ws In Worksheets
        If ws.Visible = False Then x = x + 1
        If ws.Visible = True Then
            ws.Range("A1").Value = "Feuille : " & ws.Index - x & " / " & Worksheets.Count - wc
        End If
    Next
End Sub

Function pagine()
 pagine = Application.Caller.Parent.Index & "/" & Sheets.Count
End Function

Function pagine()
 n = 0
 For Each s In ActiveWorkbook.Sheets
   n = n + -(s.Visible)
 Next
 For i = 1 To Application.Caller.Parent.Index
   k = k + -(Sheets(i).Visible)
 Next i
 pagine = k & "/" & n
End Function

Function pagine()
 n = 0
 For Each s In ActiveWorkbook.Sheets
   n = n + -(s.Visible)
 Next
 For i = 1 To Application.Caller.Parent.Index
   k = k + -(Sheets(i).Visible)
 Next i
 pagine = k & "/" & n
End Function

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Calculate
End Sub