Bonjour,
Tu peux modifier cette partie du code
With ListView1
For i = 6 To fin
If Feuil1.Cells(i, 1) = Trouve.Offset(0, 1).Value Then
.ListItems.Add , , Feuil1.Cells(i, 1)
For j = 2 To 6
.ListItems(.ListItems.Count).ListSubItems.Add , , Feuil1.Cells(i, j)
Next j
End If
Next i
End With
A+