Bonjour
Modifies la procédure
Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("B6") = Me.TextBox7
Sheets("Feuil1").Range("G12") = Me.TextBox12
Sheets("Feuil1").Range("G9") = Me.TextBox8
Sheets("Feuil1").Range("G19") = Me.TextBox10
With Sheets("Feuil1").Range("G6")
.Value = Val(Me.ComboBox4)
.NumberFormat = "000"
End With