XL 2010 ListView

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