Option Explicit
Sub Ligne_masquer_si_date_dépassée()
Dim i As Long
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
For i = Cells(Rows.Count, "b").End(xlUp).Row To 1 Step -1
If Date > Range("b" & i) Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub