Option Explicit
Private Sub ComboBox1_Change()
Dim C As Range
With ComboBox2
.Clear
For Each C In Feuil2.Columns(1).SpecialCells(xlConstants)
If C = ComboBox1 Then
.Value = C.Offset(0, 1)
If .ListIndex = -1 Then .AddItem C.Offset(0, 1)
End If
Next
End With
End Sub
Private Sub ComboBox2_Click()
TextBox1 = Feuil2.Columns(2).Find(ComboBox2, LookIn:=xlValues, lookat:=xlWhole).Offset(0, 1)
End Sub