Bonjour Stacsy, le forum,
Un essai.....
Après avoir figer la première colonne : (Affichage/Figer les volets/Figer la première colonne)
Private Sub Workbook_Open()
Dim cell As Range, dc As Integer
Application.ScreenUpdating = False
With Sheets("2024")
dc = .Cells(17, Columns.Count).End(xlToLeft).Column
For Each cell In .Range(.Cells(17, 3), .Cells(17, dc))
If cell.Value = Date Then
Application.Goto Reference:=cell, scroll:=True
End If
Next cell
.Range("A19") = Date
End With
End Sub
Cordialement,