bonjour
he oui ... un essai (adptation)
Dim Derlig As Long, Ligne As Long
Application.ScreenUpdating = False
ActiveWindow.FreezePanes = False
With Worksheets("Feuil1")
Derlig = .Range("A" & Rows.Count).End(xlUp).Row
For Ligne = Derlig To 1 Step -1
If .Range("A" & Ligne) = Date Then Rows(Ligne).Select
ActiveWindow.FreezePanes = True
Next Ligne
End With
End Sub
si la date est en col A acop/col dans thisworkbook
cordialement