Option Explicit
Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "$A$1:$J$40"
End Sub
Private Sub Workbook_Open()
Sheets("feuil1").ScrollArea = "$A$1:$J$40"
End Sub
Private Sub Workbook_Open()
Sheets("Feuil1").ScrollArea = "$A$1:$B$4"
Sheets("Feuil2").ScrollArea = "$C$4:$F$9"
Sheets("Feuil3").ScrollArea = "$E$13:$I$20"
End Sub
j'imaginais déjà les gags qu'elle permettait de faire aux collègues