'******************************** mise en forme de la listeview *********************************** ' lui passer une imagelist sur la propriété smallimagelist permet de définir la hauteur des lignes 'pour afficher les images il suffit d'appeler son index dans imagelist1 ' en revanche c'est forcément sur la premiére colonne, mais cela évite d'utiliser le drawsubitem '************************************************************************************************** With LV1 .Clear() 'efface .SmallImageList = ImageList1 '(permet de définir la hauteur des lignes à 34x34) .OwnerDraw = False ' lance ou pas la procédure Drawsubitem .Columns.Add("date et heure", 170, HorizontalAlignment.Center) 'col 1 .Columns.Add("Evénement", 250, HorizontalAlignment.Center) 'col 2 End With