Dim IM() As New Classe1
Sub affiche()
'Feuil2 est le CodeName de la feuille
Dim liste As Range, i%, a
Set liste = Feuil2.Range("B2:B" & Application.Match("zzz", Feuil2.[B:B]))
If liste.Row = 1 Then Exit Sub
ReDim IM(liste.Count)
On Error Resume Next 'si une photo ou un contrôle n'existent pas
With UserForm1
For i = 1 To liste.Count
If liste(i) <> "" Then
Set IM(i).IM = .Controls("Image" & i)
a = Array(liste(i), liste(i, 2), liste(i, 3), liste(i, 4), liste(i, 5), liste(i, 8), liste(i, 9), liste(i, 10), liste(i, 11))
.Controls("Image" & i).ControlTipText = Join(a, " # ")
.Controls("Image" & i).Picture = LoadPicture("J:\Jaquettes\" & liste(i) & ".jpg") 'chargement de l'image
'.PictureSizeMode = 3 ' 0=partiel, 1 = étirer, 3= proportionnel
End If
Next
.Show
End With
End Sub