Re : classer des cellules
re,
tu copies tes cellules de a1 à a6, tu colles en c1 et tu tries
le code généré donne ça et fonctionne
Range("A1:A6").Select
Selection.Copy
Range("C1").Select
ActiveSheet.Paste
Range("C1:C6").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
à+