pb code vba pour supprimer plusieur lignes

Bonjour,

débutant en VBA , Je souhaite créer une macro qui me permettra de supprimer toutes les lignes de la colonne I ("I2:I2960") dont la valeur de la cellule est comprise entre 0 et 249.
j’ai rédigé un code , mail il ne marche pas.

Pouvez –vous me trouver une solution svp ?

Code:

---

1 2 3 4 5 6 7

Sub chehsp() Dim mycount As Range Dim I As Integer For Each mycount In Range("I2:I2960") If mycount.Value < 250 Then Rows(I).Delete Next mycount End Sub

---

Bonjour,
Lorsque l'on procède à la suppression de lignes dans excel il faut partir de la dernière ligne.
Autrement dit, il faut utiliser une boucle avec pas négatif comme par exemple

Code:

---

1 2 3

For row = 100 to 1 step -1 if cells(row,9).value < 250 then rows(row).delete Next

---