Private Sub CommandButton1_Click()
'OSSATURE
Dim PrixOss As Single, EssOss As String, SectOss As String, TraitOss As String, UsinOss As String, SurOss As Single, LgOss As Single, TotOss As String
EssOss = ComboBox2.Value
SectOss = ComboBox1.Value
TraitOss = ComboBox3.Value...