Fonction pour éffacer des lignes si date du jour dépassée

[COLOR=#0000ff]Private Sub[/COLOR] Workbook_Open()
[COLOR=blue]Dim[/COLOR] Derlig [COLOR=blue]As Long[/COLOR], Plage [COLOR=blue]As[/COLOR] Range, Plage2 [COLOR=blue]As[/COLOR] Range, Cl [COLOR=blue]As[/COLOR] Range
[COLOR=blue]With[/COLOR] Sheets("Archives")
   [COLOR=blue]If[/COLOR] .AutoFilterMode [COLOR=blue]And[/COLOR] .FilterMode [COLOR=blue]Then[/COLOR] .ShowAllData
   Derlig = Cells(Rows.Count, 1).End(xlUp).Row
   [COLOR=blue]Set[/COLOR] Plage = .Range("D2:D" & Derlig)
    [COLOR=blue]For Each[/COLOR] Cl [COLOR=blue]In[/COLOR] Plage
        [COLOR=blue]If[/COLOR] Cl.Value < [COLOR=blue]Date Then[/COLOR]
            [COLOR=green]'Si oui, on stocke Plage2[/COLOR]
            [COLOR=blue]If[/COLOR] Plage2 [COLOR=blue]Is Nothing Then[/COLOR]
                [COLOR=blue]Set[/COLOR] Plage2 = Cl
            [COLOR=blue]Else[/COLOR]
                [COLOR=blue]Set[/COLOR] Plage2 = Union(Plage2, Cl)
            [COLOR=blue]End If[/COLOR]
        [COLOR=blue]End If[/COLOR]
    [COLOR=blue]Next[/COLOR] Cl
    [COLOR=green]'Si la Plage2 n'est pas vide on supprime les lignes[/COLOR]
    [COLOR=blue]If Not[/COLOR] Plage2 [COLOR=blue]Is Nothing Then[/COLOR]
        Plage2.EntireRow.Delete
    [COLOR=blue]End If[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]