Bonsoir à tous,
Greg, pour supprimer la ligne complête au lieu de la cellule modifie la ligne suivante dans la macro:
WS.Range('A2:A30').SpecialCells(xlCellTypeBlanks).Delete
par celle si:
WS.Range('A2:A30').SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Pour ton autre problème, sois plus explicit.
bonne soirée
@Christophe@