Distribution de critère

Option Explicit

Private Sub ComboBox1_Change()
Dim Col As Byte

If ComboBox1 = "" Then Exit Sub
ListBox1.Clear
ComboBox2.Clear
With Sheets(1)
    For Col = 1 To 5
        If .Cells(1, Col) <> ComboBox1 Then
            ComboBox2.AddItem .Cells(1, Col)
        End If
    Next
End With
End Sub

Private Sub CommandButton1_Click()
Dim Col As Byte
Dim TblCri1() As String, TblCri2() As String
Dim DrLig As Long, Lign As Long

If TextBox1 = "" Then
    MsgBox "Saisie du code générique obligatoire"
    Exit Sub
ElseIf ComboBox1 = "" Or ComboBox2 = "" Then
    MsgBox "Saisie des 2 critères obligatoire"
    Exit Sub
End If
With Sheets(1)
    Col = .Rows(1).Find(ComboBox1).Column
    DrLig = .Columns(Col).Find("*", , , , xlByColumns, xlPrevious).Row
    ReDim TblCri1(DrLig - 2)
    For Lign = 2 To DrLig
        TblCri1(Lign - 2) = .Cells(Lign, Col)
    Next Lign
    Col = .Rows(1).Find(ComboBox2).Column
    DrLig = .Columns(Col).Find("*", , , , xlByColumns, xlPrevious).Row
    ReDim TblCri2(DrLig - 2)
    For Lign = 2 To DrLig
        TblCri2(Lign - 2) = .Cells(Lign, Col)
    Next Lign
End With
ListBox1.Clear
For Lign = 0 To UBound(TblCri1)
    For Col = 0 To UBound(TblCri2)
        ListBox1.AddItem TextBox1 & " - " & TblCri1(Lign) & " - " & TblCri2(Col)
    Next
Next
End Sub

Private Sub UserForm_Initialize()
Dim Col As Byte

ComboBox1.Clear
With Sheets(1)
    For Col = 1 To 5
        ComboBox1.AddItem .Cells(1, Col)
    Next
End With
End Sub