With ListView1
.ListItems.Clear
For L = 3 To Cells(65535, Col).End(xlUp).Row
If Cells(L, Col) = Quoi And Cells(L, ColNom) = Nom Then
.ListItems.Add , LettreCol & L, Cells(L, 1)
Compteur = .ListItems.Count
For C = 2 To 18
Cle = Chr(64 + C)
.ListItems(Compteur).ListSubItems.Add , Cle & L, Cells(L, C).Text
Next
End If