Supprimer la derniere ligne dans une plage de cellules

[KTM]

Bonsoir chers tous
J'aimerais avoir un petit code qui supprime la derniere ligne de ma plage ( pas la ligne entière de la feuille)
j'ai ceci:
dl = Range("A" & Rows.Count).End(xlUp).Row …………….derniere ligne non vide
Ma plage occupe les colonnes A B C D

MERCI.

 

[mapomme]

Bonsoir @KTM,

Une piste:

Cells(Rows.Count, "a").End(xlUp).Resize(, 4).Delete xlShiftUp

 

[KTM]

SUB

Bonsoir @KTM,

Une piste:

Cells(Rows.Count, "a").End(xlUp).Resize(, 4).Delete xlShiftUp

SUBLIME pomme êtes vous mapomme .Merci

 

[KTM]

Bonsoir @KTM,

Une piste:

Cells(Rows.Count, "a").End(xlUp).Resize(, 4).Delete xlShiftUp

Fantastique code
Je voudrais savoir comment l'adapter pour supprimer la table entiere sauf la premiere ligne A11

 

[mapomme]

Re @KTM ,

Essayer:

Range("a2:d" & 1 + Cells(Rows.Count, "a").End(xlUp).Row).Delete xlShiftUp

Le 1+ est présent pour ne pas effacer la première ligne si la seule ligne non vide est la ligne n°1.

edit: oublié d'écrire le .Row

 

[KTM]

Re @KTM ,

Essayer:

Range("a2:d" & 1 + Cells(Rows.Count, "a").End(xlUp).Row).Delete xlShiftUp

Le 1+ est présent pour ne pas effacer la première ligne si la seule ligne non vide est la ligne n°1.

edit: oublié d'écrire le .Row

OK C'EST VU. Merci pour tout.