Private Sub CommandButton1_Click()
Sheets("recup").[A2:B1000].ClearContents
ligne = 2
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
Sheets("recup").Cells(ligne, 1) = Me.ListBox1.List(i)
Sheets("recup").Cells(ligne, 2) = Me.ListBox1.List(i, 1)
ligne = ligne + 1
End If
Next i
End Sub