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...