Bonjour à tous,

J'ai un petit problème :
J'ai une listbox MultiSelect et je voudrais supprimer uniquement les lignes sélectionnées mais ça me supprime toute les lignes.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim c As Integer
For c = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(c) Then
Feuil13.Select
Cells.EntireRow.Delete
End If
Next c
Merci d'avance pour votre aide

GREG