[SIZE=2]Private [COLOR=navy]Sub[/COLOR] CommandButton1_Click()
[COLOR=navy]Dim [/COLOR]Feuille[COLOR=navy] As [/COLOR]Worksheet
[COLOR=navy]With[/COLOR] ProgressBar1
.Value = 0
.Max = Sheets.Count
[COLOR=navy]For Each[/COLOR] Feuille[COLOR=navy] In [/COLOR]Sheets
Feuille.Activate
[COLOR=navy]With[/COLOR] ActiveSheet.Page[COLOR=navy]Set[/COLOR]up
.Zoom = 80
[COLOR=navy]End With[/COLOR]
[/SIZE][SIZE=2] .Value = .Value + .Max / Sheets.Count
[/SIZE][SIZE=2] [COLOR=navy]Next [COLOR=Black]Feuille[/COLOR][/COLOR]
[COLOR=navy]End With
End[/COLOR] Sub[/SIZE]