|
|
|
|
Re,
|
Bonsoir,
Sub masquer()
Dim nbre As Byte, cptr As Byte
Application.ScreenUpdating = False
nbre = ThisWorkbook.Sheets.Count
cptr = 2
For cptr = 2 To nbre
Sheets(cptr).Visible = xlSheetVeryHidden
Next
Application.ScreenUpdating = False
End Suberic |