Private Sub tb_SEARCH_AfterUpdate()
Dim variable1 As String
Dim variable2 as String
variable1 = Left(tb_SEARCH, Search(" ", A1) - 1)
variable2 = Right(tb_SEARCH, NBCAR(A1) - Search(" ", A1))
' on nettoie la liste qui apparait dans la combo box des applications
ComboBox1.Clear
For Each cel In Range("APPLI")
If InStr(UCase(cel.Value), UCase(variable1)) <> 0 & InStr(UCase(cel.Value), UCase(variable2)) <> 0 Then
ComboBox1.AddItem cel.Value
End If
Next cel
End Sub