Je requiers votre aide pour corriger le code suivant:
- Code:
'Range("B1:B3000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
J'aimerais que la suppression des lignes vides commence à partir de la dernière cellule pleine colonne B.
J'ai essayé celui-ci mais il requiert un objet?
- Code:
'Range("B" & [b:b].Find("*", , , , 1, 2).Row).Activate.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Merci pour votre aide,
Dan