Sub FeuilleSuivante()
Dim Adresse As String
Adresse = ActiveCell.Address 'Enregistre les coordonnées de la cellule active
ActiveSheet.Next.Select 'Sélectionne la feuille suivante
Range(Adresse).Select 'Sélectionne la cellule suivant coordonnées en variable
End Sub
Sub FeuillePrécédente()
Dim Adresse As String
Adresse = ActiveCell.Address 'Enregistre les coordonnées de la cellule active
ActiveSheet.Previous.Select 'Sélectionne la feuille précédente
Range(Adresse).Select 'Sélectionne la cellule suivant coordonnées en variable
End Sub