XL 2010 Tri colonne suivant liste personnalisée

Option Explicit

Sub Macro2()
Dim plg As Range, Sh As Worksheet

Set Sh = ThisWorkbook.ActiveSheet
Set plg = Sh.Range("A1").CurrentRegion

With Sh
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range( _
        "A2:A25"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "janvier,fevrier,mars,avril,mai,juin,juillet,août,septembre,octobre,novembre,decembre" _
        , DataOption:=xlSortNormal
    With .Sort
        .SetRange Range("A1:B25")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply  'plante ici si on remplace Range("A2:B25") par plg
    End With
End With
End Sub