Effacer tout ce qui se trouve après 1ère ligne vide

Bonsoir le forum,

J'actualise à partir d'un site web une feuille, j'ai donc deux tableaux qui se mette à jour par contre j'ai juste besoin du premier (qui a une taille variable). Ce que j'aimerais c'est effacer le second qui est séparé du premier par une ligne vide mais je ne sais pas comment faire.

J'ai bien un code pour rechercher la première ligne vide

L = Range("a3:a200").End(xlDown).Row + 1

mais, vu mes faibles connaissances en vba, je ne sais pas quoi mettre après pour dire d'effacer tout ce qui se trouve après la première ligne vide trouvée.

Actuellement mon tableau va du A3 au D44.

Si quelqu'un a une idée

D'avance je vous en remercie

Bonsoir,

une possibilité

L = Range("a3:a200").End(xlDown).Row + 1
L1=range("A" & rows.count).end(xlup).row
rows(L & ":" & L1).delete

Bonsoir h2so4,

Je te remercie beaucoup pour ta réponse, c'est exactement ce que je recherchais.

Bonne soirée

Rechercher des sujets similaires à "effacer tout qui trouve 1ere ligne vide"