Sub PagePrecedente()
If ActiveSheet.Index <= ActiveSheet.Parent.Worksheets("Accueil").Index + 1 _
Or ActiveSheet.Index <= 1 Then
MsgBox "C'est la permière page Élève"
Else
ActiveSheet.Parent.Worksheets(ActiveSheet.Index - 1).Visible = xlSheetVisible
ActiveSheet.Visible = xlSheetHidden
End If
End Sub
Sub PageSuivante()
If ActiveSheet.Index >= ActiveSheet.Parent.Worksheets.Count Then
MsgBox "C'est la dernière page Élève"
Else
ActiveSheet.Parent.Worksheets(ActiveSheet.Index + 1).Visible = xlSheetVisible
ActiveSheet.Visible = xlSheetHidden
End If
End Sub