Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
lig = ActiveCell.Row
UserForm3.TextBox1.Value = Cells(lig, 1).Value
UserForm3.TextBox2.Value = Cells(lig, 2).Value
UserForm3.TextBox3.Value = Cells(lig, 3).Value
UserForm3.TextBox4.Value = Cells(lig, 4).Value
UserForm3.TextBox5.Value = Cells(lig, 5).Value
UserForm3.TextBox6.Value = Cells(lig, 6).Value
UserForm3.TextBox7.Value = Cells(lig, 7).Value
UserForm3.Show
End Sub