Bonsoir
Avec une Macro dans un Module
Sub Numeroter()
indice = 0
nbFeuille = ThisWorkbook.Sheets.Count
For Each feuille In ThisWorkbook.Sheets
indice = indice + 1
With feuille.Range("A1")
.NumberFormat = "@" 'pour éviter que la valeur entrée soit prise pour une date
.Value = "Page " & indice & " sur " & nbFeuille
End With
Next feuille
End Sub
Pour placer la numérotation ailleur qu'en A1, tu changes l'adresse sur la ligne
With feuille.Range("A1")
Cordialement