Private Sub CommandButton2_Click()
col = Cells(8, Columns.Count).End(xlToLeft).Column + 1
With Feuil1
Cells(8, col) = TextBox1.Value
Cells(15, col) = TextBox2.Value
Cells(24, col) = TextBox3.Value
Cells(27, col) = TextBox4.Value
End With
End Sub