Combobox alimenté par liste filtrée

Bonjour,
Je voudrais afficher dans le combobox1 de l'userform1 les données filtrées de la colonne "C".
D'habitude j'utilise le code

Private Sub ComboBox1_majcombo()
 Dim k As Integer
ComboBox1.Clear
lit = Sheets("EFF").Range("C" & Rows.Count).End(xlUp).Row
    For k = 6 To lit
      Me.ComboBox1.AddItem Sheets("EFF").Range("C" & k)
    Next k
On Error GoTo Erreur    
Erreur:
    ComboBox1.ListIndex = -1
End Sub

mais je me rends compte qu'il m'affiche toute la liste entière , données invisible y compris.
Qui pourrai me l'adapter ou me proposer autre chose?
merci de votre aide

fichier ci-dessous


https://www.cjoint.com/c/GAhpGQXwaOy