Recherche dans userform

Private Sub T1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

With CLIENTS.[B7:B5000]

With Sheets("Clients").[B7:B5000]

Private Sub T1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    L1.Clear
    If T1 = "" Then Exit Sub
    Dim C As Range
    With Sheets("Clients")
        For Each C In .Range("B7:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
            If C Like "*" & T1 & "*" Then L1.AddItem C.Value
        Next
    End With
    L1 = ""
End Sub