Sub codechange()
Dim Obj As OLEObject
Dim itempresent As Boolean
Dim Obj2 As OLEObject
itempresent = False
For Each Obj2 In ActiveSheet.OLEObjects
If Obj2.Name = "LB" Then
itempresent = True
GoTo line1
End If
Next
line1:
If itempresent = False Then
Set Obj = ActiveSheet.OLEObjects.Add("Forms.ListBox.1")
With Obj
.Name = "LB"
.Visible = False
End With
Else
With ActiveSheet.LB
.Top = ActiveCell.Offset(1, 0).Top
.Left = ActiveCell.Offset(0, 1).Left
.List = Worksheets("Feuil2").Range("A1:A5").Value
.ListStyle = 1
.MultiSelect = 1
End With
End If
End Sub