Bonjour,
Vous avez su alimenter la Combobox1 dans Private Sub Userform_Initialize(). A quelques détails près, c'est la même chose :
Dim J As Long
With Sheets("Véhicule") ' <== adapter le nom de la feuille où on va chercher les pièces
For J = 1 To .Range("B" & Rows.Count).End(xlUp).Row ' Adapter. de la ligne 2 à dernière ligne de la colonne B
If .Range("E" & J) = "En révision" Then 'si la cellule = la valeur de combobox1
Me.ComboBox1.AddItem .Range("B" & J) ' on ajoute un élément en combobox2
End If
Next J
End With
Ce code , adapté, est à placer dans Private Sub ComboBox1_Click() puisque c'est à la sélection (clic) dans la combobox1 que devra se déclencher le remplissage de combobox2.
A+