Private sub userform_initialize()
with sheets("Donnees")
textbox1.text = Cstr(.range("B29")
textbox2.text = Cstr(.range("D29")
textbox7.text = Cstr(.range("B30")
textbox8.text = Cstr(.range("D30")
textbox5.text = Cstr(.range("B31")
textbox6.text = Cstr(.range("D31")
textbox3.text = Cstr(.range("B32")
textbox4.text = Cstr(.range("D32")
end with
end sub