Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$D$7" Then Exit Sub
Dim choix$
Cancel = True
choix = InputBox("Entrez :" & vbLf & "1 pour '" & [C5] & "'" & vbLf & _
"2 pour '" & [C9] & "'", "Choix")
[E7] = IIf(choix = "1", [C5], IIf(choix = "2", [C9], ""))
End Sub