'bouton transfert
Private Sub CommandButton2_Click()
Dim L1 As Object, L2 As Object, i&, n1$, n2$, oFso
Set L1 = ListBox1
Set L2 = ListBox2
For i = L1.ListCount - 1 To 0 Step -1
If L1.Selected(i) Then
L2.AddItem L1.List(i, 0), 0: L2.List(0, 1) = L1.List(i, 1)
n1 = Label1.Caption & L1.List(i, 1)
n2 = Label2.Caption & L1.List(i, 1)
If GetAttr(n1) = 16 Then
Set oFso = CreateObject("Scripting.FileSystemObject")
oFso.CopyFolder n1, n2, True
Else
FileCopy n1, n2
'L1.RemoveItem (i)
End If
End If
Next
End Sub