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 : Sélectionner tout - Visualiser dans une fenêtre à part
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