[matthieu33]

Bonjour Evelynetfrancois, pierrejean, PascalXLD et le forum,

Voici une solution :

Private Sub Worksheet_Activate()
Dim c As Range
Dim z As String
Dim i As Byte
 With Columns(1)
        Set c = .Find(Date)
            If Not c Is Nothing Then
                 i = c.Row
            z = c.Address
   ActiveWindow.ScrollRow = i
            Range(z).Activate
    End If
  End With
End Sub

@+