Bonjour
Ca fonctionne pas.
Private Sub ListBox1_Click()
Ligne = ListBox1.ListIndex + 2
TextBox1 = Sheets("Encadrement").Cells(Ligne, 1) 'Nom
TextBox2 = Sheets("Encadrement").Cells(Ligne, 2) 'Prénom
Image1.Picture = LoadPicture(Sheets("Encadrement").Cells(Ligne, 4)) 'va chercher les chemins d'accès dans la 4e colonne
On Error GoTo noImg
'chargement image...
Exit Sub
noImg:
Image1.Picture = LoadPicture(Sheets("Encadrement").Cells(7, 7)) 'chargement image par défaut
End Sub