Transfert donnée d'une listbox multicolonne dans une autre feuille

Bonjour

Pour mon projet d'étude, je dois creer un programme qui gerera le stock d'un magasin de telephone

Dans une des partie, j'ai creer un Userform qui represente la caisse du magasin, ou apres l'entree de chaque code barre dans un textbox, est affiché dans une listbox les propriétés du produit
et ma question est comment par la suite je transfert ces données dans une autre feuille excel, sachant que la listbox contient plusieurs colonnes et plusieurs lignes.
Et aussi si c'est possible, a chaque achat different, le transfert des données se fait a la suite des precedentes ventes.

Merci beaucoup

J'ai divisé mon code en 2 userform, ou la 2eme remplace une Msgbox, et m'affiche la somme total qu'il faut payer, et lorsqu'on appuie sur le boutton OK, alors la listbox se vide, et les donnees sont transferer dans l'autre feuille.

Voici mon coide de chaque userform

Private Sub CommandButton1_Click()
Dim t As Double
Dim i As Double
Dim code As String
Dim cat As String
Dim prix As Double
Dim x As Double
Dim q As Integer
Dim s As Double
q = TextBox2.Value
code = TextBox1.Value
If code = "" Then
rep.Show
Label5 = Label5 - 1
End If
Feuil1.Select
t = Feuil1.Application.WorksheetFunction.CountA(Range("a:a"))
For i = 1 To t

If code = Feuil1.Cells(i, 2) Then
cat = Feuil1.Cells(i, 5)
prix = Feuil1.Cells(i, 8)

s = q * prix
caisse.ListBox1.ColumnCount = 6
ListBox1.ColumnWidths = "10;15;40;100;130;80;"
ListBox1.AddItem
x = ListBox1.ListCount - 1
ListBox1.List(x, 1) = "×"
ListBox1.List(x, 2) = TextBox2
ListBox1.List(x, 3) = code
ListBox1.List(x, 4) = cat
ListBox1.List(x, 5) = prix & "€"

End If

Next

count = count + q
sum = sum + s
Label3 = sum & "€"
TextBox1 = ""
TextBox2 = 1
Label5 = count

End Sub




l'autre userform:

caisse.ListBox1.Clear

Et donc j'aimerais connaitre le code pour transferer les donnees dans une autre feuille.

J'espere que j'ai été assez claire
Merci beaucoup