Apprenti sorcier en detresse sur macro date

[carlos]

Bonsoir

tout fier de creer ma premiere vrai macro ; je m'apercois qu"elle modifie l'horloge interne de mon pc de 77 jours à chaque execution ( 7*11)
si qq'un peut m'aider , je ne suis pas merlin l'enchanteur ...


Sub dateur()
Dim dater As Date
Dim i As Byte
For i = 1 To 10
Range("d" & Range("d30").End(xlUp).Row + 1) = Date + i * 7
If Date + i * 7 > Range("a3") Then
Date = Date + 7
End If
Next
End Sub

merci

 

[carlos]

j'ai trouvé la faille


DATE à ne pas choisir comme nom mais dater par exemple

Carlos le Michey