Tri automatique de plusieurs listes

 1) Tu vas dans https://www.cjoint.com/ 
 2) Tu cliques sur [Parcourir] pour sélectionner ton fichier (15 Mo maxi)
 3) Tu défiles vers le bas pour cliquer sur le bouton bleu [Créer le lien Cjoint] 
 4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; tu fais un clic-droit dessus et tu choisis "Copier le lien"
 5) Tu reviens dans ta discussion sur CCM, et dans ton message tu fais "Coller".
=>Voir la fiche https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 Then
    Cells(1, Target.Column).Resize(Cells(Rows.Count, _
    Target.Column).End(xlUp).Row, 1).Sort _
    key1:=Cells(1, Target.Column), order1:=xlAscending, Header:=xlYes
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 Then
    Cells(1, Target.Column).Resize(21, 1).Sort _
    key1:=Cells(1, Target.Column), order1:=xlAscending, Header:=xlYes
End If
End Sub