Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i&, val_im%
If Not Intersect(Target, Range("b5:az40")) Is Nothing Then
With Sheets("Listing")
For i = 5 To .Range("A65536").End(xlUp).Row
If .Cells(i, 1).Value = Target(1) Then
UserForm1.TextBox1.Value = .Cells(i, 1)
UserForm1.TextBox2.Value = .Cells(i, 2)
UserForm1.TextBox3.Value = .Cells(i, 3)
UserForm1.TextBox4.Value = .Cells(i, 4)
UserForm1.Show
Cancel = True 'pour eviter de passer en mode edition
End If
Next i
End With
End If
End Sub