Bonsoir Fabien, bonsoir le forum,
essaie comme ça :
Private Sub Workbook_Activate()
With Sheets("Saison")
.Select
. Range("A1:M4").Select
ActiveWindow.Zoom = True
End With
With Sheets("Equipe")
.Select
. Range("A1:M24").Select
ActiveWindow.Zoom = True
End With
With Sheets("Individuel")
.Select
Dim L As Long
L = WorksheetFunction.Match("BASBAS", .Columns("AE"), 0)
.Range("A1:AE" & L).Select
ActiveWindow.Zoom = True
End With
End Sub
À plus,
Robert