Sub cacherligne()
Dim i As Long
Dim Ref As Date
Sheets("Ao").Select
Ref = Range("D2").Value
Sheets("Feuil5").Select
For i = Range("L65536").End(xlUp).Row To 2 Step -1
If Not Cells(i, 12).Value > Ref Then
Cells(i, 12).EntireRow.Hidden = True
End If
Next i
End Sub