Salut Philippe, le forum,
Je pense que pour le tri de tes colonnes, il te faut faire la meme manoeuvre que celle utilisee pour ajouter tes donnees a la prochaine cellule vide...
A savoir (du moins c'est comme ca que je procede)
Dim L As Integer
L=sheets('Feuil1')'Pour l'exemple'.range('a65536').end(xlup).row
sheets('feuil1').range(A1:A' & L).select
Selection.Sort Key1:=Range('A1'), _ Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Pour le reste, je n'en suis pas encore la, donc desole de ne pouvoir t'aider.
Bonne soiree
Olivier
Ps, j'ai oublie de prendre les autres colonnes en compte dans mon tri... oups !
Donc c'est sheets('Feuil1').range('A1
' & L).select
Message édité par: Deudecos, à: 28/01/2006 20:30