Bonjour Cassandra, bonjour le forum,
Essaie comme ça :
Sub Macro1()
Dim NbrP As Integer 'déclare la variable NbrP (Nombre de Pages)
Dim I As Integer 'déclare la varibale I (Incrément)
NbrP = Sheets.Count 'définit le nombre de pages NbrP
For I = 1 To NbrP 'boucle sur tous les onglets du classeur
'renvoie dans la cellule A1 (à adapter) du classeur de la boucle le numéro de page suivi d'un slash suivi du nombre de pages
Worksheets(I).Range("A1").Value = "'" & I & "/" & NbrP
Next I 'prochain onglet de la boucle
End Sub
[Édition]
Bonjour Xmenpl, nos posts se sont croisés. Tu as raison les pages ne sont pas les onglets... Je laisse quand même ma proposition au cas où Cassandra aurait fait, comme moi, la confusion...