Private Sub CommandButton1_Click()
With Sheets("Feuil1")
.Activate
.Range("E3").Value = CInt(TextBox1.Text)
.Range("j3").Value = CInt(TextBox2.Text)
.Range("o3").Value = CInt(TextBox3.Text)
.Range("t3").Value = CInt(TextBox4.Text)
.Range("y3").Value = CInt(TextBox5.Text)
End With
Unload fenac
End Sub