moteur de recherche sur 3 onglets

Private Sub comboBox3_Click()
With ComboBox3
If .ListIndex = -1 Then Exit Sub
If flag = True Then Exit Sub
lig = CLng(.List(.ListIndex, (.ColumnCount - 1)))
Call ecrireTextbox(lig, nomfeuille1)
Call remplistbox(.Value, "Actions a entreprendre")
[COLOR="Red"]Me.ListView1.ListItems.Clear[/COLOR]
Call remplistview(.Value, "Dépannage")

End With
End Sub

Private Sub remplistbox(donnee As String, £nomfeuille1 As String)
Dim cellule As Range
Dim i As Long
[COLOR="Red"]ListBox1.Clear[/COLOR]

Private Sub remplistbox(donnee As String, £nomfeuille1 As String)
Dim cellule As Range
Dim i As Long
Dim j As Integer
ListBox1.Clear
With Sheets(£nomfeuille1)
For Each cellule In .Range("a2:a" & .Cells(.Columns(1).Cells.Count, 1).End(xlUp).Row)

    If cellule.Value = donnee Then
    For i = 2 To 30
        If LCase(.Cells(cellule.Row, i)) = "x" Then
            If Len(Cells(7, i)) > 80 Then
            For j = 1 To Len(Cells(7, i)) Step 80
                Me.ListBox1.AddItem Mid(.Cells(7, i), j, 80)
            Next j
                Me.ListBox1.AddItem " "
            Else
            Me.ListBox1.AddItem .Cells(7, i)
            Me.ListBox1.AddItem " "
            End If
        End If
    Next i
        Exit For
    End If
Next cellule
End With
End Sub

Private Sub remplistbox(donnee As String, £nomfeuille1 As String)
Dim cellule As Range
Dim i As Long
Dim j As Integer
Dim j2 As Integer
Dim j3 As Long
ListBox1.Clear
With Sheets(£nomfeuille1)
For Each cellule In .Range("a2:a" & .Cells(.Columns(1).Cells.Count, 1).End(xlUp).Row)

    If cellule.Value = donnee Then
    For i = 2 To 30
        If LCase(.Cells(cellule.Row, i)) = "x" Then
            If Len(Sheets(£nomfeuille1).Cells(7, i)) > 80 Then
            j = 1
            j2 = 100
            j3 = 100
            Do
            pos = InStr(j3, .Cells(7, i), " ")
            If pos = 0 Then
                j2 = Len(Sheets(£nomfeuille1).Cells(7, i)) + 1
            Else
               j2 = pos - 1
            End If
            j3 = 80 + j2
            Me.ListBox1.AddItem Mid(.Cells(7, i), j, j2 - j + 1)
            j = j2 + 1
            If j >= Len(Sheets(£nomfeuille1).Cells(7, i)) Then Exit Do
            Loop
            
            Me.ListBox1.AddItem " "
            Else
            Me.ListBox1.AddItem .Cells(7, i)
            Me.ListBox1.AddItem " "
            End If
        End If
    Next i
        Exit For
    End If
Next cellule
End With
End Sub

Private Sub remplistbox(donnee As String, £nomfeuille1 As String)
Dim cellule As Range
Dim i As Long
Dim j As Integer
Dim j2 As Integer
Dim j3 As Long
With ListBox1
    .Clear
    .ColumnCount = 2
    .ColumnWidths = .Width & ";0"
End With
With Sheets(£nomfeuille1)
For Each cellule In .Range("a2:a" & .Cells(.Columns(1).Cells.Count, 1).End(xlUp).Row)

    If cellule.Value = donnee Then
    For i = 2 To 30
        If LCase(.Cells(cellule.Row, i)) = "x" Then
            If Len(Sheets(£nomfeuille1).Cells(7, i)) > 80 Then
            j = 1
            j2 = 100
            j3 = 100
            Do
            pos = InStr(j3, .Cells(7, i), " ")
            If pos = 0 Then
                j2 = Len(Sheets(£nomfeuille1).Cells(7, i)) + 1
            Else
               j2 = pos - 1
            End If
            j3 = 80 + j2
            Me.ListBox1.AddItem Mid(.Cells(7, i), j, j2 - j + 1)
            Me.ListBox1.List(Me.ListBox1.ListCount - 1, Me.ListBox1.ColumnCount - 1) = cellule.Row & "," & i
            j = j2 + 1
            If j >= Len(Sheets(£nomfeuille1).Cells(7, i)) Then Exit Do
            Loop
            
            Me.ListBox1.List(Me.ListBox1.ListCount - 1, Me.ListBox1.ColumnCount - 1) = ""
            Me.ListBox1.AddItem " "

            Else
            Me.ListBox1.AddItem .Cells(7, i)
            Me.ListBox1.List(Me.ListBox1.ListCount - 1, Me.ListBox1.ColumnCount - 1) = cellule.Row & "," & i
            Me.ListBox1.AddItem " "
            Me.ListBox1.List(Me.ListBox1.ListCount - 1, Me.ListBox1.ColumnCount - 1) = ""
            End If
        End If
    Next i
        Exit For
    End If
Next cellule
End With
End Sub

Private Sub ListBox1_Click()
With ListBox1
If .ListIndex = -1 Then Exit Sub
adresse1 = CLng(.List(.ListIndex, 1))
End With
End Sub