Private Sub ComboBox1_Change()
nom = ComboBox1.Value 'valeur de la combobox
On Error Resume Next
fichier = ActiveWorkbook.Path & "\Jpg\" & nom & ".jpg" 'va chercher image correspondante
Image1.Picture = LoadPicture(fichier) 'affiche image
'remplis la cellule en fonction de la valeur de la combobox
If ComboBox1.ListIndex <> -1 Then Feuil2.Cells(10, 10) = ComboBox1.List(ComboBox1.ListIndex, 1) Else Feuil2.Cells(10, 10) = "Erreur!!"
End Sub