Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Compteur As Integer
For Compteur = 0 To (ListBox1.ListCount - 1)
If ListBox2.Selected(Compteur) = True Then
With UserForm2
.TextBox1 = Me.ListBox2.List(Compteur, 0)
.TextBox2 = Me.ListBox2.List(Compteur, 1)
.TextBox3 = Me.ListBox2.List(Compteur, 2)
.TextBox4 = Me.ListBox2.List(Compteur, 3)
.TextBox5 = Me.ListBox2.List(Compteur, 4)
.TextBox6 = Me.ListBox2.List(Compteur, 5)
.TextBox7 = Me.ListBox2.List(Compteur, 6)
.TextBox8 = Me.ListBox2.List(Compteur, 7)
.Image1 = Me.ListBox2.List(Compteur, 8) <-- ici
.Show
Exit Sub
End With
End If
Next
End Sub