Dim Derlig As Range
Dim LO As Integer
Dim CO As String
Application.ScreenUpdating = False
PListBox3.Clear
PListBox3.Visible = True
Sheets("orateur").Select
If ComboBox1.Value = "" Then Exit Sub
With Sheets("orateur").Range("B65536").End(xlUp).Row
For LO = 3 To Sheets("orateur").Range("B65536").End(xlUp).Row
CO = ""
On Error Resume Next
CO = Sheets("orateur").Range(Cells(LO, 15), Cells(LO, 200)).Find(ComboBox1, , , xlWhole).Column
If CO <> "" Then PListBox3.AddItem Cells(LO, 2)
Next LO
If CO = "" Then MsgBox "Pas d'orateur trouvé.", vbExclamation, "Recherche Orateur"End With
Sheets("Menu").Select
Application.ScreenUpdating = True