Suppression lignes en fonction de la date

Bonjour le forum,

J'aimerais un code vba capable de supprimer les lignes en fonction d'une date.

Ci joint un exemple qui je l'espère sera assez explicite.

D'avance merci pour votre aide

Bonjour,

Un exemple.

ALT F8, exécuter la procédure.

Cdlt.

Public Sub Delete_Rows()
Dim dtm As Date
    dtm = DateAdd("d", -3, VBA.Date)
    With Worksheets("Rapp_ReliquatEnCommande")
        If .AutoFilterMode Then .AutoFilter.ShowAllData
        With .Cells(1).CurrentRegion
            .AutoFilter field:=2, Criteria1:="<" & dtm * 1
            .Offset(1).EntireRow.Delete
            .AutoFilter
        End With
    End With
End Sub

Bonjour

Bonjour à tous

Une variante

Bye !