Sub FILTRAGE()
Dim i As Integer, DerniereLigne As Integer
DerniereLigne = Range("A65536").End(xlUp).Row
For i = DerniereLigne To 1 Step -1
On Error Resume Next
If Date - Sheets("Feuil1").Cells(i, 2).Value < 15 Then Sheets("Feuil1").Rows(i).Delete
If Err <> 0 Then
Err = 0
End If
On Error GoTo 0
Next i
End Sub