>10colonnes

Bonjour J'ai ce code pour copier une ligne d'une listebox1 vers listebox2 mais ce code est limité a 10 quelqu'un à un autre code ? Private Sub Cmd_ajoutarticlechantier_Click() Dim ligne As Variant Dim k As Integer Dim i As Integer i = ListBox1.ListIndex ListBox2.AddItem ListBox1.List(i, 0)...