Revenir (Via des boutons) sur la précédente page.

Bonjour,

Je vous explique j'ai 5 feuilles différentes, à tous moment l'utilisateur peut aller sur la feuille.
J'aimerais mettre un bouton sur la feuille 5 qui permette de revenir sur la page précédente.
Voici mon programme (qui ne marche pas bien sur) pour le moment (trouvé sur internet):

Option Explicit
Private OldPageName As String
Private Sub CommandButtonR1_Click()
OldPageName = ActiveSheet.Feuil1
ActiveWindow.Page = Feuil5
End Sub
Private Sub CommandButtonR2_Click()
OldPageName = ActiveSheet.Feuil2
ActiveWindow.Page = Feuil5
End Sub
Private Sub CommandButtonR3_Click()
OldPageName = ActiveSheet.Feuil3
ActiveWindow.Page = Feuil5
End Sub
Private Sub CommandeButton1_Click()
Sheets("OldPageName").Select
End Sub



merci!