Option Explicit
Private Sub TextBox1_Change()
Dim temp
Dim i
temp = Me.TextBox1
Me.ListBox1.Clear
For i = 1 To [ListeNoms].Count
If UCase(Left(Range("listeNoms")(i), Len(temp))) = UCase(temp) Then
Me.ListBox1.AddItem Range("listeNoms")(i)
End If
Next
End Sub
Private Sub ListBox1_Click()
Dim F As Worksheet
Dim C
Dim Plage As Range
Dim Derlig As Long
[C22] = Me.ListBox1
For Each F In Worksheets
If LCase(F.Name) <> "accueil" Then 'excepté celle-ci !
Derlig = F.Cells(Rows.Count, 3).End(xlUp).Row
Set Plage = F.Range("C7", F.Cells(Derlig, 3))
Set C = Plage.Find([C22], , , xlPart)
If Not C Is Nothing Then
[C23] = C.Row & ":" & C.Row
[C24] = C.Address
[C25] = F.Name
End If
End If
Next F
Me.TextBox1.Value = ""
End Sub