Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i%, t
Application.ScreenUpdating = False
With Me.ListBox1 'prend en compte le ListBox1
For i = 0 To .ListCount - 1 'boucle sur tous les lignes de la ListBox1
'si la ligne est sélectionnée définit la variable lis, la variable true et sort de la boucle
If .Selected(i) = True Then
t = Array(.Column(1, i), .Column(2, i), .Column(3, i) & " " & .Column(4, i) & " " & .Column(5, i), .Column(6, i))
op.Cells(li, "H").Resize(4) = Application.Transpose(t)
Exit For
End If
Next i 'prochaine ligne de la boucle
End With 'fin de la prise en compte de la ListBox1
Unload Me 'vide et ferme l'UserForm
End Sub