Solution si ça peut servir à quelqu'un (:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If TextBox1 <> "" Then
j = 0
For i = 3 To 6000
If Cells(i, 1) Like TextBox1 Then
With Me.ListView1
With .ColumnHeaders
.Clear
.Add , , "Nom", 50
.Add , , "Ref", 80
.Add , , "IPMAC", 60
End With
j = j + 1
Me.ListView1.ListItems.Add , , Cells(i, 1)
Me.ListView1.ListItems(j).ListSubItems.Add , , Cells(i, 2)
Me.ListView1.ListItems(j).ListSubItems.Add , , Cells(i, 3)
.View = lvwReport 'format d'affichage des données
End With
End If
Next
End If
End Sub