Private Sub CommandButton4_Click()
'RECHERCHE
Dim oDic As Object
Set oDic = CreateObject("Scripting.Dictionary")
ListView1.ListItems.Clear
If TextBox15 = "" Then Exit Sub
nom = TextBox15
With Sheets("BaseP").UsedRange.Columns("A:I")
Dim adr1 As String
Set c = .Find(TextBox15, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False)
If Not c Is Nothing Then
flag = True
adr1 = c.Address
Do
If Not oDic.exists(CStr(c.Row)) Then
IniLvw c.Row
oDic.Add CStr(c.Row), CStr(c.Row)
End If
Set c = .FindNext(c)
Loop While c.Address <> adr1 And Not c Is Nothing
End If
End With
If Not flag Then MsgBox "Rien trouvé !"
txtTotal = ListView1.ListItems.Count
flag = False
'Stop
End Sub