J'ai un souci de retour à la ligne, normalement on utilise un Under score (avec un espace avant) mais cela ne fonctionne pas dans cette partie de code : ActiveSheet.Sort.SortFields.Add Key:=[A1],CustomOrder:="HORODATE,DB_PC,EAP_*_PC,EA_*_PC_INJ"
Je n'ai mis que quelques critères après HORODATE mais en réalité il y en à beaucoup plus.
Je voudrai par exemple faire un retour à la ligne après le critère EAP_*_PC