Sub ChargeImages()
Dim obj As OLEObject
With Me.ImageList1
.ListImages.Clear
.ImageHeight = 16 'Hauteur
.ImageWidth = 16 'Largeur
.ListImages.Add , "DocExcel", LoadPicture("C:\Users\Clement.SODIS\Pictures\docexcel.bmp")
.ListImages.Add , "ShExcel", LoadPicture("C:\Users\Clement.SODIS\Pictures\FeuilleExcel.bmp")
.ListImages.Add , "Repertoire", LoadPicture("C:\Users\Clement.SODIS\Pictures\Rep.bmp")
.ListImages.Add , "DocOutlook", LoadPicture("C:\Users\Clement.SODIS\Pictures\Outlook.bmp")
.ListImages.Add , "Tous", LoadPicture("C:\Users\Clement.SODIS\Pictures\Valider.jpg")
.ListImages.Add , "TousRepertoires", LoadPicture("C:\Users\Clement.SODIS\Pictures\TousRepertoires.bmp")
'c'est là que ça bloque...
Set obj = Feuil1.OLEObjects("Image 1")
.ListImages.Add , "Im1", obj.CopyPicture
Set Me.TreeView1.ImageList = Me.ImageList1
Set Me.TreeView2.ImageList = Me.ImageList1
End With
Set Me.TreeView1.ImageList = Me.ImageList1
Set Me.TreeView2.ImageList = Me.ImageList1
Set Me.TreeView3.ImageList = Me.ImageList1
End Sub