Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" Then
Dim ligne As Long, i As Integer, Var2 As Variant, lig As Long, j As Integer
'initialise combobox6 "Code Bien"
With ComboBox6
For Var2 = 2 To Worksheets("Biens").Range("A" & Rows.Count).End(xlUp).Row
.AddItem Worksheets("Biens").Range("A" & Var2)
Next Var2
ligne = Var2
End With
For i = 2 To ligne
If Range("F" & i).Value = ComboBox1.Value Then
If Range("B" & i).Value = ComboBox4.Value Then
lig = i
End If
End If
Next i
With WsBI
For j = 1 To 3
Me.Controls("TextBox" & j) = Worksheets("Biens").Cells(lig, j + 2)
Next j
Me.ComboBox6 = Worksheets("Biens").Cells(lig, 1)
End With
End If
End Sub