Private Sub Workbook_Open()
With Sheets("Jours")
leLundi = CDbl(Date - IIf(Weekday(Date, vbMonday) = 1, 0, Weekday(Date, vbMonday) - 1)) 'détermine le lundi qui précède (ou le lundi en cours)
col = Application.Match(leLundi, .[11:11], 0) 'trouve la position du lundi de la semaine en cours
If IsError(col) Then MsgBox "Date non-trouvée": Exit Sub
ActiveWindow.ScrollColumn = col
.Cells(12, col).Activate
End With
End Sub