Combobox tri

If not rows(x).hide then
    Mettre la cellule dans le combo
end if

Sub remplirCombo()
Dim CB As Control
Dim Index As Integer, lig As Long, Buff As String
Dim LigCb As Long, B As Boolean
    Pas = True
    For Each CB In Me.Controls
        If TypeOf CB Is MSForms.ComboBox Then
            Index = CB.Tag
            CB.Clear
            For lig = 0 To ListBox1.ListCount - 1
                Buff = ListBox1.List(lig, Index)
                If CB.ListCount > 0 Then
                    For LigCb = 0 To CB.ListCount - 1
                        If CB.List(LigCb) = Buff Then B = True: Exit For
                    Next LigCb
                End If
                If Not B Then CB.AddItem Buff
                B = False
            Next lig
        End If
    Next CB
    Pas = False
End Sub