effacer les lignes où dates trop anciennes

Sub Eliminator_Date_Older_2_Monthes()
Dim L As Long
 
    With Sheets("Feuil1")
            For L = .Range("A65536").End(xlUp).Row To 3 Step -1
                If IsDate(.Cells(L, 1)) Then
                     .Cells(L, 1) = .Cells(L, 1)
                         If DatePart("m", CDate(.Cells(L, 1).Value)) < DatePart("m", Date) - 2 Then
                             .Rows(L).Delete
                         End If
                End If
            Next
    End With
End Sub