Private Sub Rech_Noms()
Dim plg As Range, plage As Range, cel As Range, premaddress
On Error Resume Next
ListView1.ListItems.Clear
With Sheets("Annuaire")
derlig = .Range("b" & Rows.Count).End(xlUp).Row
Set plage = .Range("b2:b" & derlig)
Set cel = plage.Find(ComboBox1, , , xlWhole)
If Not cel Is Nothing Then
premaddress = cel.Address
Do
Set Item = Me.ListView1.ListItems.Add(Text:=cel.Offset(0, -1))
Item.SubItems(1) = cel.Offset(0, 0)
Item.SubItems(2) = cel.Offset(0, 1)
Item.SubItems(3) = cel.Offset(0, 2)
Item.SubItems(4) = cel.Offset(0, 3)
Item.SubItems(5) = cel.Offset(0, 4)
Item.SubItems(6) = cel.Offset(0, 5)
Item.SubItems(7) = cel.Offset(0, 6)
Set cel = plage.FindNext(cel)
Loop While Not cel Is Nothing And cel.Address <> premaddress
End If
End With
End Sub
Private Sub ComboBox1_Change()
If ComboBox1 <> "" Then Call Rech_Noms
End Sub
