XL 2010 Effacer la ligne si cellule vide

[Wyrgle]

Bonjour le forum,

J'utilise beaucoup la ligne de code suivante :

   [B:B].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

pour effacer une ligne entière si la cellule en colonne B est vide.
Mais elle me retourne parfois une erreur du style 'Cellule non-trouvée'.
Pourquoi ?

Est-ce que les lignes suivantes remplacent la ligne ci-dessus :

For i = 1 to ActiveSheet.Cells.Find("*", , , , xlByRows, xlPrevious).Row
     If Cells(i, 2) = "" Rows(i).Delete
next i

Merci !

 

[cathodique]

comme ceci, à tester

Dim Ligne As Long
Ligne = Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row
'ou Ligne = Range("B" & Rows.Count).End(xlUp).Row
for i =1 to ligne
if cells(i,2)="" then Rows(i).Delete
next i