bonjour a tous,

j'ai fait un code qui doit effacer une ligne si la date dans une cellule de la colonne E est inférieur à la date indiqué dans une variable

et il ne se passe rien en fait

voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Sub noel()
Sheets("noel").Select
Range("d1").Select
Dim finperiode As Date, numdl As String, i As Long
finperiode = InputBox("date de naissance maximal") ' pour saisir la date
For i = 2 To Range("a65536").End(xlUp).Row
If Range("e" & i).Value < finperiode Then Rows(i).Delete
Next i
End Sub
merci pour votre aide