Vba excel "Recherche par critère"

Private Sub btn_Affiche_P_Click()
Dim i As Long
Sheets("Personnels").Select
'Pour la colonne
Me.ListBox_Pers.Clear
Me.ListBox_Pers.AddItem
For a = 1 To 10
Me.ListBox_Pers.List(0, a - 1) = Personnels.Cells(1, a)
Next a
Me.ListBox_Pers.Selected(0) = True
Dim derligne As Integer
'Pour la listbox
For i = 2 To Personnels.Range("A100000").End(xlUp).Offset(1, 0).Row
For j = 1 To 10
H = Application.WorksheetFunction.CountIf(Personnels.Range("A" & 2, "I" & i), Personnels.Cells(i, j))
If H = 1 And LCase(Personnels.Cells(i, j)) = LCase(Me.txt_Rech_Pers) Or H = 1 And Personnels.Cells(i, j) = Val(Me.txt_Rech_Pers) Then
Me.ListBox_Pers.AddItem
For x = 1 To 10
Me.ListBox_Pers.List(ListBox_Pers.ListCount - 1, x - 1) = Personnels.Cells(i, x)
Next x
End If
Next j
Next i

'ActiveWorkbook.Save
'Unload Me
'F_Personnel.Show
End Sub

svp aidez moi afficher la listbox tous les noms ou numero trouvé