Allons-y pour "shuk20"...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Cancel = True
Do
sMsg = Application.InputBox("Veuillez entrer le code !", "Code")
Loop Until sMsg <> "" Or sMsg = "Faux"
MsgBox IIf(sMsg = "Faux", "Procédure interrompue par l'utilisateur !", IIf(sMsg = "shuk20", "Code exact !", "Le code est erronné !")), vbInformation + vbOKOnly, "Code"
Target = IIf(sMsg = "Faux" Or sMsg <> "shuk20", "", "OK")
'
End Sub
A+