Bonjour,
Essayez :
With Feuil1.ListObjects("Tableau21")
If .ListRows.Count = 0 Then
.ListRows.Add: Lig = 1
'Else: .ListRows.Add: lig = .ListRows.Count 'insérer à la dernière ligne
Else: .ListRows.Add Position:=1: Lig = 1 'insérer a la 1igne 1
End If
With .DataBodyRange
.Item(Lig, 1) = TextBox2.Value
.Item(Lig, 5) = TextBox1.Value
.Item(Lig, 3) = TextBox4.Value
.Item(Lig, 4).Value = ComboBox1.Value
If ComboBox1 = "OUI" Then Feuil1.Hyperlinks.Add Anchor:=.Item(Lig, 4), Address:="g:/Boulot/Notice d.pdf", TextToDisplay:="OUI"
.Item(Lig, 2).NumberFormat = "@"
.Item(Lig, 2) = Format(TextBox3.Value, "0000000000")
End With
End With
Unload UserForm7