Private Sub InvertMySelection() 'Boucle sur tous les objets de la ListBox. For i = 0 To lstfichier_1.Items.Count - 1 'Déterminer si l'élément est sélectionné. If lstfichier_1.GetSelected(i) = True Then 'Désélectionner tous les objets qui sont sélectionnés. lstfichier_1.SetSelected(i, False) Else 'Sélectionner tous les éléments qui ne sont pas sélectionnés. lstfichier_1.SetSelected(i, True) End If Next i 'Forcer le ListBox pour revenir en arrière vers le haut de la liste. 'lstfichier_1.TopIndex = 0 End Sub