Sub test()
Dim i&
Dim reponse As Variant
reponse = InputBox("Entrez une date de départ valide", "Saisie de la date")
If reponse = "" Then Exit Sub
For i = 100 To 2 Step -1
If Cells(i, 1).Value < CDate(reponse) Then
Cells(i, 1).EntireRow.Delete
End If
Next
End Sub