Private Sub Cdb_Valider_Click()
Dim Ws As Worksheet
Dim L As Integer
Dim tbl As ListObject 'on dit que tbl est l'objet
Set Ws = Sheets("Saisie")
If MsgBox("Etes-vous certain de vouloir Insérer ce nouvel élément?", vbYesNo, "Demande de confirmation") = vbYes Then
Set tbl = Ws.ListObjects("Tbl_BDD") 'ou se trouve tbl qui est l'objet appelé tableau1
L = tbl.ListRows.Add.Index 'ici on rajoute une ligne au tableau1
With tbl
On Error Resume Next
.DataBodyRange(L, 1) = Me.Txt_Dat
.DataBodyRange(L, 2) = Me.Cbx_Cat
.DataBodyRange(L, 3) = Me.Cbx_SousCat
.DataBodyRange(L, 4) = CDbl(Me.Txt_Montant)
.DataBodyRange(L, 5) = Me.Txt_Notes
End With
End If
End Sub