Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static clic As Boolean
Dim i%, s%
clic = Not clic
If clic Then
With Me.Shapes("Zone de liste 1")
.Visible = True
.Top = Target.Top
.Left = Target.Left
End With
Else
With Me.ListBoxes(1)
For i = 1 To 8
If .Selected(i) Then
s = s + 1
Target(s, 1).Value = Me.Cells(i, 1).Value
.Selected(i) = False
End If
Next i
.Visible = False
End With
End If
End Sub