Dim tableAnnees As New DataTable
Dim ligne As DataRow
Dim MonNouvelOnglet As TabPage
tableAnnees = ObjetDataSet.Tables("TbdeBord_ANNUEL")
For Each ligne In tableAnnees.Rows
MonNouvelOnglet = New TabPage
'Nom de l'onglet
MonNouvelOnglet.Name = "TabTbdeBord" & ligne.Item("ANNEE")
'Titre de l'onglet
MonNouvelOnglet.Text = ligne.Item("ANNEE")
TabControlTbdeBord.TabPages.Add(MonNouvelOnglet)
Next
Private Sub TabControlTbdeBord_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControlTbdeBord.SelectedIndexChanged
TabControlTbdeBord.SelectedTab.Controls.Add(TaDataGridView)
TaDataGridView.visible = True
End Sub,