For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then .Cells(numLigne, 3).Value = ListBox1.List(i)
If ListBox1.Selected(i) = True Then .Cells(numLigne, 4).Value = ListBox1.List(i)
'.Cells(numLigne, 5).Value = ListBox1.List(i)
'.Cells(numLigne, 6).Value = ListBox1.List(i)
Next i