Option Explicit
Sub Ajustement()
Application.ScreenUpdating = 0
Dim F As Byte
For F = 1 To Sheets.Count
With Sheets(F)
.Activate
.Range("A1:Y35").Select 'Plage à adapter
.Range("A1").Activate
ActiveWindow.Zoom = True
.Range("A1").Select
End With
Next
Sheets(1).Activate
End Sub