Problème tri + sélection

Bonjour, un petit problème j'en suis sûr:

Je voudrais, dans mon code, trier une sélection qui s'étend de A2 à la dernière cellule de la colonne CD dans laquelle j'ai une valeur, dans l'ordre alpha croissant de la colonne A.

Voici mon code:

Code:

---

1 2 3

Range("A1").Select Selection.Sort Key1:=Cells(Cells(Cells.Rows.Count, 1).End(xlUp).Row, 1), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal

---

Petite précision, dans la colonne CD, j'ai une formule qui peut renvoyer une erreur tant que le tri n'est pas fait, et après la dernière cellule dans laquelle j'ai quoique se soit d'inscit, j'ai toujours la formule qui renvoi "".
Je m'explique, c'est une formule "si" qui renvoie une valeur tant qu'il y a un nom dans la colonne A et, s'il n'y a rien dans la colonne A, renvoie "" mais tant qu'A n'est pas dans l'ordre, elle peut renvoyer #Valeur! ou #N/A.
Il faut bien que la dernière cellule considérée soit la dernière avant les :"", celà inclu les #Valeur! et #N/A.


Merci beaucoup

Essaie comme ceci

Code:

---

1 2 3 4 5 6

Sub Tri() Dim nbLignes As Long   nbLignes = Cells(Rows.Count, "A").End(xlUp).Row Range("A2:CD" & nbLignes).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo End Sub

---

En cherchant, j'ai trouvé ça:

Code:

---

1 2 3 4

Range("A2").Select   Selection.Sort Key1:=Cells(Cells(Cells.Rows.Count, 82).End(xlUp).Row, 1), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal

---

Si tu ne vois pas d'erreur flagrante.

Je vais tester ta méthode avant de cliquer sur "RESOLU"

J'ai écris

Code:

---

Range("A2:CD" & nbLignes).Sort

---

en supposant que CD était la dernière colonne.
Si ce n'est pas le cas, ajuste au besoin.

C'est bien la dernière colonne