Bonjour
Dans ta macro changes le 9 en 8 (partie surlignée) : Pas tout vérifié
Sub IniLvw(a As Long)
With ListView1
.ListItems.Add , , Sheets("BD").Cells(a, 1)
X = .ListItems.Count
For i = 1 To 8
.ListItems(X).ListSubItems.Add , , Sheets("BD").Cells(a, i + 1)
Next
.ListItems(X).ListSubItems.Add , , a
For i = 1 To .ListItems.Count
If .ListItems(i) = TextBox1 Then .ListItems(i).Bold = True
For j = 1 To .ColumnHeaders.Count - 1
If .ListItems(i).ListSubItems(j).Text = TextBox1 Then
.ListItems(i).ListSubItems(j).Bold = True
End If
Next j
Next i
End With