Vba excel affichage d'un sheet fitre userform

Private Sub UserForm_Initialize() 
    Dim Cel As Range, Cpt As Integer 
    Cpt = 0 
    For Each Cel In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible) 
        Me.ListBox1.AddItem 
        Me.ListBox1.List(Cpt, 0) = Cel              ' 1ere colonne 
        Me.ListBox1.List(Cpt, 1) = Cel.Offset(, 1)  ' 2eme colonne 
        Cpt = Cpt + 1 
    Next Cel 
End Sub 

Private Sub UserForm_Initialize()
Dim Wsh As Worksheet, lig As Long, drlig As Long, Crit

Crit = "X" '---> A ADAPTER = ton critère
Set Wsh = Sheets("Feuil1") '---> A ADAPTER = Nom de ta feuille

With Wsh
    drlig = .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
    For lig = 2 To drlig
    '---> A ADAPTER : F = colonne à filtrer contenant ou pas le critère Crit,
        'C = colonne contenant les données à transférer dans la listbox
        If .Range("F" & lig).Value = Crit Then ListBox1.AddItem .Range("C" & lig).Value
    Next
End With
Set Wsh = Nothing
End Sub