Bonjour,
Le plus simple est d'ajouter à la fin du code de ta macro :
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("BDD").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BDD").AutoFilter.Sort.SortFields.Add Key:=Range( _
"A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("BDD").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
avec BDD le nom de ta feuille où la base de données est présent (ligne 2 3 et 6)
et dans la ligne 4 à la place de A1 mettre l'emplacement de la cellule qui gère ton tri.
Voir fichier joint pour l'exemple
Le plus simple pour trouver des formules comme celles ci est d'utiliser l'enregistreur de macro.
Bonne journée,