Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([H4:H10], Target) Is Nothing Then
If Range("G" & Target.Row) <> 0 Then
Target.Value = IIf(Target.Value = "", "ü", "")
Else
MsgBox "Vous ne pouvez pas valider cette ligne", vbInformation, "ATTENTION ..."
End If
Cancel = True
End If
End Sub