Sélectionner plusieurs colonnes

Bonjour, je cherche a sélectionner quatre colonnes jusqu'a la derniere cellule non vide de la premiere colonne. J'y arrivais pour 1 colonne, mais la.... Merci

https://www.excel-pratique.com/~files/doc/Kn1WDExemple.xls

Bonjour,

Faites comme ceci :

1) Sélectionner la cellule A1

2) En tenant simultanément les touches CTRL + MAJ appuyer sur la touche fin

bonjour,

Sub essai()
    Dim DerLig As Long
    DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
        Range("a1:d" & DerLig).Select
End Sub

amicalement

Claude.

édit: Salut Raja et merci pour le code à félix

Merci a vous, en faite j'avais trouvé une solution plutot correcte :

Par exemple a partir de la cellule B2

Range("AB:AD" & Range("AB65536").End(xlUp).Row).Select