Sub ouvrel()
Dim motdepasseboite As String
motdepasseboite = InputBox("Accès administrateur " & "Entrez le mot de passe")
If motdepasseboite <> Worksheets("12").Range("I10") and _
motdepasseboite <> Worksheets("12").Range("I11") Then
MsgBox "Mot de passe incorrect"
Exit Sub
End If
End Sub