Bonsoir Xavier, bonsoir le Forum,
En enlevant les "$", celà devrait fonctionner
Private Sub UserForm_Initialize()
Dim L As Long
L = ActiveCell.Row
'On définit la propriété ControlSource de chaque TextBox à partir de la ligne sélectionnée
TextBox1.ControlSource = "A" & L
TextBox2.ControlSource = "B" & L
TextBox3.ControlSource = "C" & L
TextBox4.ControlSource = "D" & L
TextBox5.ControlSource = "E" & L
End Sub
Bonne Prog
JHocquevelt