Bonjour abdernino
Commencez par faire un USF correcte avec une Combobox pour la liste des images
Et ensuite
Private Sub ComboBox1_Change()
Le_chemin_de_mon_Image = "c:\Images\" & ComboBox1.Value & ".jpg"
' Désactiver les erreurs éventuelles
On Error Resume Next
Image1.Picture = LoadPicture(Le_chemin_de_mon_Image)
' Réactiver la gestion des erreurs
On Error Goto 0
End Sub
@+