Bonjour Mgn_91, pierrejean
Je répond à la place de pierrejean qui va me vilipender
.
Dans
Private Sub ListBox1_Click(), le N° de ligne est dans la colonne 5 donc :
AD = Me.ListBox1.List(Me.ListBox1.ListIndex, 4)
et, puisqu'on a le N° de ligne on peut supprimer la ligne :
set c=....
et modifier dans la boucle:
For n = 1 To 13
Me.Controls("Textbox" & n) = Sheets("Planning").Cells(AD, n)
Next
A+