bonjour a tous

j'utilise un code pour mettre une date afin de supprimer des ligne en fonction de leur date de naissance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Sub an()
 Dim finperiode As Date
        'methode pour supprimer les trop vieux
        finperiode = InputBox("date de naissance maximal") ' pour saisir le 31/12 de l'année avant la dernière année
For i = Range("b65536").End(xlUp).Row To 2 Step -1
If Range("e" & i).Value < finperiode Then Rows(i).Delete
Next i
je rentre par exemple 31/12/1990
mais je voudrais qu'une autre variable devienne l'année tapé + 8 ans
soit dans cette exemple 31/12/1999

comment faire ?