For i = 1 To nbn - 2
Sheets(i).Visible = False
Next i
Sheets(nbn).Select
With Application
.DisplayFullScreen = True
.DisplayFormulaBar = False
.Calculation = xlManual
End With
With Sheets(nbn)
.EnableSelection = xlUnlockedCells
.ScrollArea = 'A1:AF43'
.Protect UserInterfaceOnly:=True
End With
Application.Calculation = xlAutomatic