UserForm pour tri

Private Sub CommandButton1_Click()
    Jour = ComboBox1.Text
    Mois = ComboBox3.Text
    Secteur = ComboBox2.Text
    Ajout_Ligne_Filtre
    If Jour <> "" Then Filtrer_Jour
    If Mois <> "" Then Filtrer_Mois
    If Secteur <> "" Then Filtrer_Secteur
End Sub

Option Compare Text

Public DerLig As Long
Public Jour As String, Mois As String, Secteur As String

Sub BoutonTri()
UserForm1.Show
End Sub

Sub Ajout_Ligne_Filtre()
    Rows(2).Select
    ActiveSheet.AutoFilterMode = False
    Selection.AutoFilter
    DerLig = ActiveSheet.[A100000].End(xlUp).Row
End Sub

Sub Filtrer_Jour()
    ActiveSheet.Range("A2:N" & DerLig).AutoFilter Field:=1, Criteria1:="=" & Jour
End Sub

Sub Filtrer_Mois()
    ActiveSheet.Range("A2:N" & DerLig).AutoFilter Field:=2, Criteria1:="=" & Mois
End Sub

Sub Filtrer_Secteur()
    'Chargement des Critères Secteur USF TL1
    Nb = Worksheets("listes").[F100].End(xlUp).Row - 1
    ReDim Crit(Nb) As String
    If Secteur = "TL1" Then Col = "F" Else Col = "G"
    For i = 1 To Nb
        Crit(i) = Sheets("listes").Cells(i, Col)
    Next i
    ActiveSheet.Range("A2:N" & DerLig).AutoFilter Field:=3, Criteria1:=Array(Crit), Operator:=xlFilterValues
End Sub