Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Changement des états en "bon état" ou "Manquant"
If Not Intersect([H9:S9], Target) Is Nothing And Target <> "" And Target <> "Dispo atelier" Then Target.Value = IIf(Target.Value = "Bon état", "Manquant", "Bon état")
Cancel = True
'If Not Intersect([H9:S9], Target) Is Nothing And Target = "" Then Target.Locked = True
If Not Intersect([H9:S9], Target) Is Nothing And Target = "" Then Target.Value = IIf(Target.Value = "", "", "")
End Sub