XL 2013 Macro Sélection toutes cellules

[BRUNO28]

Bonjour à tous,
Je cherche une macro pour sélectionner toutes les cellules d'un tableau de 6 colonnes à partir de la cellule A2 et la dernière cellule non vide de la colonne A, puis faire un tri de cette sélection.
Exemple ci-joint.
Je vous remercie d'avance de votre bonne volonté et vous souhaite une excellente journée.
Bruno28

 

[cp4]

Bonjour,
Comme ceci

Sub selection()
    Dim dl As Long
    With Sheets(1)
        dl = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A2:F" & dl).Select
    End With
End Sub

 

[BRUNO28]

Je teste et je reviens. Merci

 

[BRUNO28]

Testé et approuvé.
Grand Merci à vous.

 

[chris]

Bonjour

A noter que CRTL * à partir d'une cellule non vide quelconque de la colonne A et un clic sur le bouton AZ fait la même chose sans VBA...

 

[BRUNO28]

Merci pour ce conseil.
Bonne Journée