Bouton feuille suivant et bug

Bonjour,

J'ai crée des boutons dans la barre d'outil qui permettent d'aller d'une feuille à l'autre (voir le code ci-dessous). Quelqu'un connaitrait il le code a ajouter pour qu'à la premiere et la derniere feuille, ça ne bug pas?

Merci

Sub FeuilleSuivante()
If ActiveSheet.Index > 1 Then
Sheets(ActiveSheet.Index + 1).Activate
End If
End Sub

Sub FeuillePrecedente()
If ActiveSheet.Index < Worksheets.Count Then
Sheets(ActiveSheet.Index - 1).Activate
End If
End Sub