selection de cellules

bonjour

dans ma colonne J il peut y avoir + ou - de cellules avec des valeurs
je me positionne sur la premiere cellule vide avec ceci:

Code:

---

1 2 3 4 5 6

'Positionner le pointeur sur la première cellule vide Range("J3").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select LIGNEFIN = ActiveCell(1, 0).Address() FIN = Range(LIGNEFIN).Row

---

après je voudrais activer les cellules de cette cellules vide à la cellule J3 afin de faire un tri mais je ne sais pas faire ???
merci d'avance pour votre aide
(je débute avec la programmation )

Bonjour


essaye cela :

Code:

---

Range("J3:J" & range("J3").end(Xldown).row=.select

---

Bonne soirée

merci Wilfried 42 pour ta proposition
mais en surfant j' ai trouvé ceci un peu plus long mais ça marche aussi

Code:

---

1 2 3 4 5

LIGNEFIN = ActiveCell.Row Range("B3" & ":J" & LIGNEFIN).Select Selection.Sort Key1:=Range("J3"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom ActiveWindow.SmallScroll Down:=-33

---

Merci encore