Erreur de code affecter valeur à un tableau

Bonjour,

J'ai écrie un programme mais il y une erreur.
Dans le programme, je créer une ligne sur un tableau et ça marche, mais je n'arrive pas à affecter les valeurs des tb ou cb dans la ligne du tableau.
C'est la deuxième partie du code
Merci pour votre aide.

Function ajouter_ligne_et_valeurs()
Dim cell_vide As Range, Last As Long, i As Byte, ii As Byte

With Feuil9.ListObjects(1)

Set cell_vide = .ListColumns("Date").Range.Find("")

If cell_vide Is Nothing Or .ListRows.Count = 0 Then .ListRows.Add: Set cell_vide = .ListColumns("Date").DataBodyRange.Rows(.ListRows.Count) Last = cell_vide.Row - .HeaderRowRange.Row

.ListColumns("Date").DataBodyRange.Rows(Last).Value = Date

.ListColumns("Machine").DataBodyRange.Rows(Last).Value = cbmachine.Value

.ListColumns("Operation").DataBodyRange.Rows(Last).Value = cboperation.Value

.ListColumns("Details").DataBodyRange.Rows(Last).Value = tbdetails.Value

.ListColumns("Duree").DataBodyRange.Rows(Last).Value = tbduree.Value

End With

End Function

Bonjour,

As-tu un fichier à partager ?

Bonjour,

malheureusement je n'ai pas de fichier a partager. je ne suis pas le propriétaire.

Pouvez vous me donner une piste.

Merci à vous.

Voici le fichier, j'ai put le récupérer