Private Sub CommandButton1_Click()
Dim i&
If ListBox1.ListIndex = -1 Then Exit Sub
With Feuil1
For i = 14 To 17
.Cells(i, 3) = ListBox1.List(ListBox1.ListIndex, i - 14)
Next i
For i = 14 To 17
.Cells(i, 7) = ListBox1.List(ListBox1.ListIndex, i - 10)
Next i
End With
Unload Clients
End Sub