Private Sub Workbook_Open()
Sem = 3 + Format(Date, "ww", 2, 2) * 1
Range("D1").Select
ActiveWindow.SmallScroll ToRight:=Sem - 1
End Sub
Range("D1").Select
Private Sub Workbook_Open()
Sem = Format(Date, "ww", 2, 2) * 1
Range("D1").Select
ActiveWindow.SmallScroll ToRight:=Sem - 1
End Sub
Ici et là !... puisque tu as la réponse et « énormément de respect pour les bénévoles »...