Private Sub Bouton2_Click()
With Me.Listbox1
For i = 0 To Me.Listbox1.ListCount - 1
If .Selected(i) Then
On Error Resume Next
Workbooks.Open (path & .List(i))
DerligneI = Range("I65536").End(xlUp).Row
Range("H2:I" & DerligneI).Select
Selection.Copy
Windows("monfichier.xls").Activate
Sheets("Test").Select
Range("H2").Select
ActiveSheet.Paste
If Err <> 0 Then
MsgBox "ça ne sert a rien d'ouvrir deux fois le même fichier !"
On Error GoTo 0
End If
End If
Next i
End With
End Sub