Microsoft 365 Suppression ligne si date inférieure à la date du jour

libellule85 à dit:

Bonsoir le forum,

J'aimerais créer une macro qui à l'ouverture du fichier supprime les lignes dont la date est inférieure à la date du jour.
D'avance merci pour votre aide

Cliquez pour agrandir...

VB:

Private Sub Workbook_Open()
    Dim plage
    With Feuil1    ' A adapter
        If .FilterMode Then .ShowAllData
        If .[a4] = "" Then .[a4] = "Date"
        Set plage = .Range("$A$4:$A$" & .Cells(.Rows.Count, "A").End(xlUp).Row)
    End With
    plage.AutoFilter Field:=1, Criteria1:="<" & CDbl(Date)
    On Error Resume Next    'rien a filtrer
    plage.Offset(1).Resize(plage.Rows.Count - 1).EntireRow.SpecialCells(xlCellTypeVisible).Delete
    plage.AutoFilter
End Sub

Cliquez pour agrandir...

libellule85 à dit:

Bonsoir Jacky67,

Merci beaucoup pour ta réponse.
Bonne soirée

Cliquez pour agrandir...