Suppression de ligne VBA

Bonjour,

J'aimerai savoir comment coder pour supprimer des lignes qui remplissent une condition ?

Par exemple, je souhaite supprimer toutes les lignes où je suis < 480.

Merci d'avance

Marjow54

Bonjour Marjow54,

un exemple, à adapter selon ton cas réel :

Sub Essai()
  Dim dlig&, lig&: Application.ScreenUpdating = 0
  dlig = Cells(Rows.Count, "A").End(xlUp).Row
  For lig = dlig To 5 Step -1
    If Cells(lig, "A") < 480 Then Rows(lig).Delete
  Next lig
End Sub

* c'est peut-être une autre colonne que la colonne A

* peut-être que la 1ère ligne haut n'est pas la ligne 5

dhany

Ca me convient parfaitement, merci !

merci pour ton retour, et pour avoir passé le sujet en résolu !

bonne continuation !

dhany