Private Sub Workbook_Open()
With Sheets("T3 & T4")
.Protect "toto", UserInterfaceOnly:=True
End With
With Sheets("Disjoncteur T3000")
.Protect "toto", UserInterfaceOnly:=True
End With
With Sheets("DCU")
.Protect "toto", UserInterfaceOnly:=True
End With
End Sub