Option Explicit
Private Sub Worksheet_Activate()
Dim DerL&, Lig&
Application.ScreenUpdating = False
DerL = Sheets("Marie").Range("A6000").End(xlUp).Row
Cells.EntireRow.Hidden = False
Range("A2:B" & DerL).ClearContents
Range("A2:B" & DerL).Formula = "=IF(AND(Marie!RC2>=R1C4,Marie!RC2<=R1C5),Marie!RC,"""")"
For Lig = 2 To DerL
Rows(Lig).EntireRow.Hidden = IIf(Range("A" & Lig).Text = "", True, False)
Next Lig
Cells(1, 1).Select
End Sub