Private Sub Grid_Liste_RowLoaded(ByVal nRow As Long, Item As _
  sevDataGrid2.ListItem)
 
With Item
    If Mode = "B" Then
        .ForeColor = vbRed
    Else
        .ForeColor = vbBlack
    End If
End With
 
End Sub