Sub IniLvw(a As Long) 'remplissage listview avec recherche
'Chaque ligne d'une ListView peut être définie en 2 parties:
'ListView1.ListItems(x) spécifie la ligne x et la 1ere colonne de cette ligne.
'ListView1.ListItems(x).ListSubItems(y) permet de spécifier les colonnes adjacentes._
'Par exemple ListView1.ListItems(5).ListSubItems(1) indique la 2eme colonne dans la 5eme ligne de la ListView.
With ListViewRes
.ListItems.Add , , Sheets("gens").Cells(a, 3)
x = .ListItems.Count
For i = 1 To totcol - 1
.ListItems(x).ListSubItems.Add , , Sheets("gens").Cells(a, i + 1)
Next
.ListItems(x).ListSubItems.Add , , a
For i = 1 To .ListItems.Count
If .ListItems(i) = NomRecherhce Then .ListItems(i).Bold = True '<<<<<<<<<<<<<<<<<<<
For j = 1 To .ColumnHeaders.Count - 1
If .ListItems(i).ListSubItems(j).Text = NomRecherhce Then '<<<<<<<<<<<<<<<<<<<<<
.ListItems(i).ListSubItems(j).Bold = True
End If
Next j
Next i
End With
End Sub