Peux-tu faire un extrait ... pas vu le bouton, pas vu les dates, beaucoup de #valeurs, beaucoup de macro enregistrées, pas pu charger le fichier dans C:\Excel, pas exploitable pour nous. Désolé. Si tu pouvais simplifier !
Ma seule question :
ActiveWorkbook.Worksheets("TABLEAU").Sort.SortFields.Add Key:=Range("E59:E62" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("TABLEAU").Sort.SortFields.Add Key:=Range("F59:F62" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Pourquoi E et F ? et pourquoi 59 à 62 ... en tous cas cela semble faire le travail !