tri par date

Option Explicit
Sub TriParMois()
'
Dim derLi As Long
Dim M As String
Application.ScreenUpdating = False
'Recherche de la dernière ligne de la colonne A
derLi = Columns("A").Find("*", , , , , xlPrevious).Row
Range("A2:K" & derLi).Interior.ColorIndex = xlNone 'A1 a adapter

RedoM:
'Choix du mois
M = Application.InputBox("Choisissez le mois", "", Month(Date), , , , , 1)
If M = "0" Then GoTo RedoM
If M = False Then GoTo Fin2
If M > 12 Or M < 1 Then GoTo RedoM

'Insertion d'une colonne temporaire
Columns("I:I").Insert Shift:=xlToRight
'Inscription de la formule pour trier par mois
Range("I2:I" & derLi).FormulaR1C1 = "=MONTH(RC[1])"
'Tri
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("I2:I" & derLi), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A1:K" & derLi)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With
'le filtre
ActiveSheet.Range("$A$1:$K$" & derLi).AutoFilter 9, Criteria1:=M
On Error GoTo Erreur
Range("A2:K" & derLi).SpecialCells(xlCellTypeVisible).Interior.ColorIndex = 6
On Error GoTo 0: GoTo Fin
Erreur: MsgBox "Pas de correspondance pour ce mois."
Fin:
Selection.AutoFilter
'Suppression de la colonne temporaire
Columns("I").Delete Shift:=xlToLeft
Fin2: Application.ScreenUpdating = True
End Sub

Option Explicit
Dim i As Integer
Dim data1 As String

Private Sub ComboBox1_Change()
Dim nomfeuille1 As String
Dim col As String
Dim cellule As Range
col = "a"
nomfeuille1 = "Feuil1"
Dim i As Long
i = 0
Label2 = "Résultat de la recherche"

With ListBox1
    .Visible = False
    Label2.Visible = False
    .Clear
    .ColumnCount = 4
    .ColumnWidths = "100;50;20;0"
    '.Style = fmStyleDropDownList '
    '.BoundColumn = 1 ' combobox1.text contient le nom
    For Each cellule In Sheets(nomfeuille1).Range("i2:i" & Sheets(nomfeuille1).Range(col & "65536").End(xlUp).Row)
            If IsDate(cellule.Value) Then
                If MonthName(Month(cellule.Value)) = ComboBox1.Value Then
                    .AddItem cellule.Offset(0, -8).Value
                    .List(.ListCount - 1, 1) = cellule.Offset(0, -7).Value
                    .List(.ListCount - 1, 2) = cellule.Offset(0, 0).Value
                    .List(.ListCount - 1, .ColumnCount - 1) = cellule.Row
                    .Visible = True
                    i = i + 1
                End If
            End If
    Next cellule
    Label2.Visible = True
End With
If i = 0 Then
    Label2 = "Pas d'occurrence pour " & ComboBox1.Value & "."
Else: Label2 = Label2 & " (" & i & ")"
End If

' code pour connaitre la ligne de la base de donnée
'Dim lig As Long
'lig = CLng(ListBox1.List(ListBox1.ListIndex, (ListBox1.ColumnCount - 1)))

End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub


Private Sub UserForm_Initialize()
For i = 1 To 12
    Me.ComboBox1.AddItem MonthName(i)
Next i
ComboBox1.ListIndex = Month(Date) - 1

End Sub