Allegement de code textbox,listbox,combo

Bonjour,

J'aimerais si possible alleger mon code pour recuperer des textbox,listbox,combobox present dans mon userform et les mettre dans des cellule bien précise sur ma feuille.

Exemple:

Sheet("test").select

Range("K4").value=listbox1.value
Range("N4").value=listbox2.value
Range("R4").value=text1.value
Range("U4").value=text2.value
Range("D27").value=text3.value
Range("J8").value=combobox10.value
Range("P8").value=text4.value
Range("J12").value=text5.value
...

Merci a vous !!

Des idées ?

Merci encore a tous