Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("Données").Range("B21").Value
TextBox5.Value = Sheets("Données").Range("B22").Value
TextBox4.Value = Sheets("Données").Range("B23").Value
TextBox3.Value = Sheets("Données").Range("B24").Value
End Sub