Option Explicit
Private Sub UserForm_Initialize()
Dim Cell As Range
Dim x As Integer
For Each Cell In Sheets("Feuil1").Range("A2:A10")
With Me.ListBox1
.ColumnCount = 3
.AddItem Cell
.Column(1, x) = Cell.Offset(0, 1)
.Column(2, x) = Cell.Offset(0, 2)
x = x + 1
End With
Next Cell
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim TheLine As Integer
Sheets("Feuil2").Activate
TheLine = ActiveCell.Row
With Me.ListBox1
Cells(TheLine, 4) = .Column(0, .ListIndex)
Cells(TheLine, 6) = .Column(2, .ListIndex)
End With
End Sub