Sub Macro1()
Dim Lig As Long 'déclaration d'une variable '
Lig = ActiveCell.Row 'Cette variable est égale à la ligne de la cellule active"
UserForm1.TextBox31.Text = ActiveCell.Value 'la valeur de la cellule que tu selectionne passe dans la textBox31'
UserForm1.TextBox1.Text = Range("J" & Lig).Value 'les autres textbox prennent la valeur des cellules sur la ligne'
UserForm1.TextBox2.Text = Range("N" & Lig).Value
UserForm1.TextBox3.Text = Range("O" & Lig).Value
UserForm1.TextBox4.Text = Range("P" & Lig).Value
UserForm1.TextBox5.Text = Range("Q" & Lig).Value
UserForm1.TextBox6.Text = Range("W" & Lig).Value
UserForm1.TextBox7.Text = Range("X" & Lig).Value
UserForm1.TextBox8.Text = Range("AE" & Lig).Value
UserForm1.TextBox9.Text = Range("AF" & Lig).Value
UserForm1.TextBox10.Text = Range("AG" & Lig).Value
UserForm1.TextBox11.Text = Range("AT" & Lig).Value
UserForm1.TextBox12.Text = Range("BB" & Lig).Value
UserForm1.TextBox13.Text = Range("BF" & Lig).Value
UserForm1.TextBox14.Text = Range("BH" & Lig).Value
UserForm1.TextBox15.Text = Range("BJ" & Lig).Value
UserForm1.TextBox16.Text = Range("BY" & Lig).Value
UserForm1.Show 'affichage du userform'
End Sub