je me suis limité à répondre à ta question, mais je pense que l'on doit pouvoir 'optimiser' les autres codes (pour eviter les doublons surtout)
pour ton souci, essayes ceci :
PrivateSub ListBox2_Click() Dim c As Range
ListBox3.Clear
For Each c In Range('a10:a' & Range('a65536').End(xlUp).Row) If c = ListBox1 And c.Offset(0, 1) = ListBox2 Then
ListBox3.AddItem c.Offset(0, 2) End If Next c
Je te propose une version Full Comment de ton fichier. [file name=David_v2.zip size=15653]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/David_v2.zip[/file]