Private Sub Workbook_Open()
Dim FeuilleActive As String
FeuilleActive = ActiveSheet.Name
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect Password:="Mdp"
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Select
ActiveWorkbook.Sheets(i).Protect Password:="Mdp"
ActiveWorkbook.Sheets(i).EnableSelection = xlUnlockedCells
Next
ActiveWorkbook.Protect Password:="Mdp"
ActiveWorkbook.Sheets(FeuilleActive).Select
Application.ScreenUpdating = True
End sub