Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Col As Integer
Col = ActiveCell.Column
If Col = 2 Then
If Not Application.Intersect(Target, ActiveCell) Is Nothing Then
On Error Resume Next
Chemin = "J:\jaquettes\" & ActiveCell.Text & ".jpg"
Image1.Picture = LoadPicture(Chemin)
TextBox1.Text = ActiveCell.Value '(Row, Column + 1).Value
TextBox2.Text = ActiveCell(Row, Column + 3).Value
TextBox3.Text = ActiveCell(Row, Column + 2).Value
TextBox4.Text = ActiveCell(Row, Column + 4).Value
End If
Else: Exit Sub
End If
End Sub