Private Sub CmdTransfert_Click()
lig = Sheets("TBL").[G65000].End(3).Row + 1
With Sheets("ListBox").ListBox1
For k = 0 To .ListCount - 1
If .Selected(k) = True Then
tx = tx & Chr(10) & .List(k)
.Selected(k) = False
End If
Next
tx = Right(tx, Len(tx) - 1)
Sheets("TBL").Cells(lig, 7) = tx
End With
End Sub