Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Oust As Boolean)
If R.Column <> 20 Then Exit Sub
Oust = 1
With Usf
.TextBox1 = R(1, -6) & " " & R(1, -5) ' (6 cellules à gauche, 5 cellules à gauche
.TextBox2 = R(1, -10) '10 cellules à gauche
.Show
End With
End Sub