Private Sub Workbook_Open()
Dim W As Worksheet
For Each W In ActiveWorkbook.Worksheets
W.Protect Password:=MdP, DrawingObjects:=True, _
Contents:=True, UserInterfaceOnly:=True
Next W
'
Sheets("Paramètres").Select
Range("B3").Select
If Selection.Value = "Pts" Then
Methode = "Points"
Else
Methode = "Victoires"
End If
Sheets("Mode d'emploi").Select
End Sub