Bonjour,

J'ai un problème dans la suppressions de plusieurs lignes en même temp, en fait ça me suprime une ligne sur deux.
Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
With Feuil2
For Each vente In .Range("A2:I" & .Range("A65536").End(xlUp).Row)
If vente.Offset(0, 8) = UserForm1.ComboBox2.Text Then
Feuil2.Select
vente.EntireRow.Select
Selection.EntireRow.Delete
End If
Next
End With
Merci d'acance pour votre aide