Option Explicit
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 2")
.Visible = True
.Top = 0 'Target.Top
.Left = 55 'Target.Left
End With
Else
With Me.ListBoxes(1)
For I = 1 To 26
If .Selected(I) Then
S = S + 1
Target(1, S).Value = Me.Cells(I, 1).Value
.Selected(I) = False
End If
Next I
.Visible = False
End With
End If
End Sub