Dim LDC as integer 'déclare la variable LDC (Ligne de l'élément Double-Cliqué)
LDC = ListBox1.Columns(7, ListBox1.ListIndex)
With Fiche_recap
.Load
.TextBox1.Value = O.Cells(LDC, 1)
.TextBox2.Value = O.Cells(LDC, 2)
.TextBox1.Value = O.Cells(LDC, 3)
.TextBox1.Value = O.Cells(LDC, 4)
.TextBox1.Value = O.Cells(LDC, 5)
'etc...
.Show
End With