Private Sub CommandButton1_Click()
Dim t As String
Dim r As Range
Dim plage As Range
With Sheets('données')
derl = .Range('a65536').End(xlUp).Row
End With
Set plage = Sheets('données').Range('a7:a' & derl)
t = TextBox1.Value
For Each r In plage
With Sheets('données')
Cells.Find(What:=Left(TextBox1.Value, 3), After:=.Range('a7:a' & derl), _
SearchDirection:=xlNext, MatchCase:=False).Activate
End With
ListBox1.AddItem Sheets('données').selection.Offset(0, 14)
Next r
End Sub