Bonjour,

J'ai le code suivant pour supprimer des lignes de ma feuille depuis une listbox... le souci est que ça supprime toutes les lignes contenant la même valeur pour "A"

Quelqu'un aurait une idée s'il vous plaît !?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
        Do While Sheets("Retenues").Range("A" & i).Value <> ""
            If Sheets("Retenues").Range("A" & i).Value = ListBox1.Text Then
            Sheets("Retenues").Rows(i).Delete
            End If
 
        i = i + 1
        Loop