Private Sub CommandButton1_Click()
With Sheets("0. Données d'entrée")
.[C6] = TextBox1.Value
.[C7] = TextBox2.Value
For k = 3 To 8 'boucle sur les 6
If Controls("CheckBox" & k) = True Then .[C4] = Controls("CheckBox" & k).Caption
Next
.[C5] = IIf(CheckBox1.Value = True, CheckBox1.Caption, CheckBox2.Caption)
End With
With Sheets("1. Main d'oeuvre")
.[B15] = TextBox3.Value
.[B20] = TextBox4.Value
End With
With Sheets("2. Coûts Pièces et ST")
.[B25] = TextBox5.Value
.[C25] = TextBox6.Value
End With
Sheets("3. Tarif").Select
Unload Me
End Sub