Private Sub CBCocherDécocherDocuments_Click()
If Me.LBListeDocumentsPDF.Selected(0) = True Then
LBListeDocumentsPDF.MultiSelect = 0
LBListeDocumentsPDF.MultiSelect = 1
Else
For I = 0 To LBListeDocumentsPDF.ListCount - 1
LBListeDocumentsPDF.Selected(I) = 1
Next
End If
End Sub