Ligne avec date du jour se place sous la barre de figeage

bonsoir à tous

j'ai mis dans mon classeur le figeage sur la cellule B6

dans la colonne A j'ai des dates

j'aimerais que la date du jour vienne se placer juste sous la barre de figeage à l'activation de la feuille

ex si la date du jour est ligne 32, la ligne 32 vient se placer sous la ligne 5

je ne cherche pas à masquer les lignes 6 à 31 dans la cas de l'exemple mais que le scroll la place sous le ligne 5 uniquement

merci

je ne sais pas si j'ai été très clair

je demande cela pour faciliter la recherche de la date du jour dans mon planning (j'ai déja mis une couleur mais c'est pas suffisant)

Bonsoir

Macro à mettre dans le module ThisWortkbook

Option Explicit

Private Sub Workbook_Open()
Dim Lg

  Sheets("Feuil1").Select         ' Au cas ou le fichier à été fermé sur une autre feuille
   Lg = Application.Match(CSng(Date), .Columns("A"), 0)
  If Not IsError(Lg) Then
    ActiveWindow.ScrollRow = Lg
  End If
End Sub

A l'ouverture du fichier la date du jour sera la 1ère en dessous de la ligne de figeage

bonsoir et merci banzaî

c'est parfait j'ai juste supprimé le point avant columns qui me créait une erreur