Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ListBox1.Visible = False
If Intersect(ActiveCell, Range("A2:A6,A8:A12,A14:A18")) Is Nothing Then Exit Sub
With ListBox1
.ListFillRange = "Liste"
.LinkedCell = ActiveCell.Address
.Top = ActiveCell.Top
.Left = ActiveCell(1, 2).Left
.Visible = True
End With
End Sub