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 :
Code:
For i = 1 to ActiveSheet.Cells.Find("*", , , , xlByRows, xlPrevious).Row
If Cells(i, 2) = "" Rows(i).Delete
next i
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