Surpression lignes sous conditions

Bonjour le forum,

J'ai un soucis avec un fichier, j'aimerais qu'une macro supprime les lignes ou il y a une valeur dans les cellules d'une colonne.

Ci joint un exemple qui je l'espère sera assez explicite

Merci pour votre aide

CDB

7test10.xlsm (10.21 Ko)

Bonjour,

à tester,

Sub test()
rw = Cells(Rows.Count, "B").End(xlUp).Row

For i = rw To 3 Step -1
If Cells(i, "H") <> "" Then Rows(i).Delete Shift:=xlUp
Next
End Sub

Merci beaucoup ça fonctionne