Private Sub NouveauBouton(ByVal num As String) Dim Ligne As New TableRow Dim tCell As New TableCell Dim Bouton As New WebControls.Button Ligne = New TableRow tCell = New TableCell Bouton = New WebControls.Button Bouton.Text = "Bouton N° " + num Bouton.Attributes.Add("runat", "server") tCell.Controls.Add(Bouton) Ligne.Cells.Add(tCell) Table1.Rows.Add(Ligne) End Sub