Private Sub ComboBox1_Change()
Dim c As Range, i As Byte, n As Byte
With ListBox1
.Clear
Set c = [List1].Find(ComboBox1, , xlValues, xlWhole)
If Not c Is Nothing Then
.AddItem ""
For i = 5 To 21 Step 4
n = n + 1
.List(0, n) = c(1, i)
Next
End If
End With
End Sub
Private Sub CommandButton2_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
With Feuil3.Range("A" & Rows.Count).End(xlUp)(2)
.Resize(, 6) = ListBox1.List
.Value = ComboBox1
End With
End Sub