effacer une zone de lignes

[l'inconnue]

Bonjour à toutes et à tous,

je viens vers vous car je n'arrive pas à résoudre un petit problème.

Aprés avoir recuperé un fichier txt, et retravaillé par macro la mise en page, je cherche a effacer des lignes qui comportent des caractères spéciaux .

j'arrive à sélectionner la première ligne vide avec
Range("A1").End(xlDown).Offset(1, 0).Select

Mais aprés je voudrai effacer toutes les lignes qui se trouvent en dessous et je n'y arrive pas .

je suis sure que quelqu'un aura une petite idée pour résoudre ce problème .

merci d'avance pour votre aide

l'inconnue

 

[Zon]

Salut,

Range([A1],[A1].end(xldown)).clear 'ou clearcontents si tu veux garder la mise forme.

Pas besoin de select , VBA n'a pas besoin de souris pour travailler dans une cellule.

A+++