Incrémentation +7 jours

Bonjour à tous,

J'ai un fichier de planning.
En cellule I8 j'ai la date du lundi. En P8 j'ai la date I8+6 (le dimanche donc).
J'aimerai via un bouton, incrémenter la cellule I8 de 7 jours (pour passer au lundi suivant).

Le code actuel rattaché à ce bouton est actuellement :

Sub IncrementationSup7()

Dim num As Integer

Range("I8").Select
 
Date = Range("I8").Value
Date = Date + 7
Range("I8").Value = Date

End Sub

Ce code fonctionne sur un autre onglet pour incrémenter un nombre de 1.
J'ai l'impression qu'au format date ça ne veut pas le prendre en compte car un message d'erreur s'affiche...

L'erreur est "erreur d'exécution 70 : Permission refusée

Une idée svp?

Merci d'avance pour votre retour! Bonne soirée!