Private Sub ListBox1_Click()
Set result = Rng.Find(what:=Me.ListBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not result Is Nothing Then
Me.TextBox2 = result.Offset(, 0)
Me.TextBox3 = result.Offset(, 1)
Me.TextBox4 = result.Offset(, 2)
Me.TextBox5 = result.Offset(, 3)
Me.TextBox6 = result.Offset(, 4)
Me.TextBox7 = result.Offset(, 5)
Me.TextBox8 = result.Offset(, 6)
Me.TextBox9 = result.Offset(, 7)
Me.TextBox10 = result.Offset(, 8)
répertoireImage = ThisWorkbook.Path
NomImage = result.Offset(, 50)
UserForm2.Image1.PictureSizeMode = fmPictureSizeModeStretch
UserForm2.Image1.Picture = LoadPicture(répertoireImage & "\" & NomImage & ".jpg")
End If
End Sub