Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim x As Long
drligne = 5000
If Not c1 Then
ComboBox2.Clear
ComboBox3.Clear
ComboBox4.Clear
Columns(18).Select
If ComboBox1.Value = "" Then Exit Sub
With Selection
x = 0
Do
x = x + 1
If Range("R" & x).Value = ComboBox1.Value And Range("R" & x).Offset(0, 1).Value <> "" Then
ComboBox2.AddItem Range("R" & x).Offset(0, 1).Value
End If
Loop Until x = drligne
Call tri(ComboBox2)
c2 = True
End With
End If
End Sub