Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim w As Worksheet, Nmat As Byte, Nplan As Byte 'Nmat ou Nplan max 255
For Each w In Worksheets
If w.Name Like "Matériel #*" Then Nmat = Nmat + 1
If w.Name Like "Plan #*" Then Nplan = Nplan + 1
Next
If Sh.Name Like "Matériel #*" Then [A1] = "Page " & Split(Sh.Name, " ")(1) & "/" & Nmat
If Sh.Name Like "Plan #*" Then [A1] = "Page " & Split(Sh.Name, " ")(1) & "/" & Nplan
End Sub