Merci Soan, ça je maitrise mais il faut toujours que j'intervienne. Ce que je veux c'est un tri automatique car les infos viennent d'une autre feuille.
Sub Tri()
Sheets("FM").Range("A2:A5924").Copy
Sheets("Feuil2").Range("J2:J5924").PasteSpecial xlPasteValues
End Sub
donc elle commence par copier les noms de la colonne A de la feuille "FM" sur "Feuil2", à partir de la cellule J2, dans le but de faire un tri dessus, probablement par ordre croissant ; mais sur la feuille "FM", en colonne A, il n'y a aucun nom !
edit : en fait, c'était une simple erreur de transmission de fichier ; le demandeur a joint un nouveau fichier avec quelques données ; et j'ai pu faire la macro à partir de ce 2ème fichier : voir le post #8.
ok, effectivement, s'il s'agit d'une simple erreur, ça peut arriver à tout l'monde.
note que sur "Feuil2", la colonne J est entièrement vide ; fais Ctrl e ➯ travail effectué : ça a copié tous les noms de la feuille "FM", colonne A, en "Feuil2", colonne J ; puis ça les a triés par ordre croissant.
code VBA de Module1 :
VB:
Option Explicit
Sub Tri()
Dim n&
With Worksheets("FM")
n = .Cells(Rows.Count, 1).End(xlUp).Row: If n < 3 Then Exit Sub
Application.ScreenUpdating = 0: n = n - 1: .[A2].Resize(n).Copy
End With
With Worksheets("Feuil2")
.[J2].PasteSpecial xlPasteValues
.[J2].Resize(n).Sort .[J2], 1
.Select: [A1].Select
End With
End Sub