Bonjour j'ai ceci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Application.EnableEvents = False
 
Range("C9:Q5000").Select
 
    ActiveWorkbook.Worksheets("Bilan").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Bilan").Sort.SortFields.Add Key:=Range("C9:C5000" _
       ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Bilan").Sort
        .SetRange Range("C8:Q5000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
        .Apply
    End With
Cells(2.1).Select
 
Application.EnableEvents = True
Sauf que pour trier des dates, c'est un résultat erroné ? Savez vous pourquoi ?