Private Sub UserForm_Initialize()
Me.ListBox1.List = Application.Transpose([marque])
End Sub
Private Sub ListBox1_Click()
Me.ListBox3.Clear
p = Application.Match(Me.ListBox1, [marque], 0)
h = Application.CountA(Range("marque")(1).Offset(1, p - 1).Resize(4))
Me.ListBox2.List = [marque].Offset(1, p - 1).Resize(h).Value
End Sub
Private Sub ListBox2_Click()
p = Application.Match(Me.ListBox2, [Type], 0)
h = Application.CountA(Range("type")(1).Offset(1, p - 1).Resize(6))
Me.ListBox3.List = [Type].Offset(1, p - 1).Resize(h).Value
End Sub