Sub SetHeaderImage (Index As Int)
Dim c As B4XTableColumn = TabStat.Columns.Get(Index)
Dim p As B4XView = c.CellsLayouts.Get(0)
Dim iv As B4XView = p.GetView(0)
iv.SetBitmap(xui.LoadBitmapResize(File.DirAssets, "jaune.png", iv.Width, iv.Height, False))
End Sub