Bonjour danval, le forum,
Un essai....
Sub efface()
Dim i As Integer, d As Date
dl = Range("A" & Rows.Count).End(xlUp).Row
d = Format(Now, "dd/mm/yyyy")
Application.ScreenUpdating = False
For i = dl To 1 Step -1
If Range("G" & i) < d Then Rows(i).Delete
Next i
End Sub
Cordialement,