Private Sub ComboBox1_Change()
nom = ComboBox1.Value 'valeur de la combobox
On Error Resume Next
fichier = ActiveWorkbook.Path & "\Jpg\" & nom & ".jpg" 'va chercher image JPG correspondante
Image1.Picture = LoadPicture(fichier) 'affiche image JPG
fichier1 = ActiveWorkbook.Path & "\acad\" & nom & ".jpg" 'va chercher image AUtocad correspondante
Image2.Picture = LoadPicture(fichier1) 'affiche image Autocad
'remplis la cellule en fonction de la valeur de la combobox
Range("C11").Value = ComboBox1.Value
End Sub