Je t'ai mis la version avec clic en pièce jointe dans ma réponse précédente...
Tu peux faire quelque chose qui ressemble à ça :
Private Sub UserForm_Initialize()
Dim msg
msg = "Titre: " & liste(crd, 1) & Chr(10) & _
msg = msg & "Titre Original: " & liste(crd, 2) & Chr(10) & _
msg = msg & "Date de Sortie: " & liste(crd, 3) & Chr(10) & _
msg = msg & "Acteurs: " & liste(crd, 4) & Chr(10) & _
msg = msg & "Genre: " & liste(crd, 5) & Chr(10) & _
msg = msg & "Durée: " & liste(crd, 6) & Chr(10) & _
msg = msg & "Critique Presse: " & liste(crd, 7) & Chr(10) & _
msg = msg & "Critique Spectateur: " & liste(crd, 8) & Chr(10) & _
msg = msg & "Réalisateur: " & liste(crd, 9)
Label1.Caption = msg
End Sub
...sauf que pour le contenu de liste() , je ne peux pas te renseigner vu que je ne peux pas deviner ou tu pêches tes infos...
A+