If Sheets("Data").Cells(Numlign, 14) = "" Then
With userform2.ListView1
' peut être mettre (Numlign+1)
.ListItems(Numlign).ForeColor = &HFF&
.ListItems(Nulign).Bold = True
For j = 1 To 8
.ListItems(Numlign).ListSubItems(j).ForeColor = &HFF&
.ListItems(Numlig).ListSubItems(j).Bold = True
Next
End With
End If