Private Sub CommandButton2_Click()
With Feuil1
col = .Cells(8, Columns.Count).End(xlToLeft).Column + 1 ' Prend en compte la dernière valeur de la cellule plus un
.Cells(8, col) = TextBox1.Value 'ligne 8
.Cells(15, col) = TextBox2.Value 'ligne 15
.Cells(24, col) = TextBox3.Value 'ligne 24
.Cells(27, col) = TextBox4.Value 'ligne 27
End With
End Sub