ouvrir une plage en fonction de la date du jour

Private Sub Workbook_Open()
jour = Weekday(Date, vbMonday)
'sélection des trois feuilles en meme temps
Sheets(Array("Feuil1", "Feuil2", "feuil3")).Select

'décalage de 13 colonnes (13 parce que tes zones sont définies sur 13 colonnes 
If jour <> 1 Then ActiveWindow.ScrollColumn = (jour - 1) * 13
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Cells(2, Weekday(Date, vbMonday) * 12 - 11).Select
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Cells(2, Weekday([A1] - 1) * 12).Select
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Application.Goto Cells(2, Weekday(Now - 1) * 12), 1
End Sub