Heu pourquoi cloturez vous ?
Si vous avez suivi mes suggestions dans mon post précédent (point3 https://forum.excel-pratique.com/s/goto/1049850), voici le code à appliquer pour compléter la feuille Liste
Sub test()
Dim lig As Integer
With ThisWorkbook.Worksheets("Liste").ListObjects("TabLISTE")
If .ListRows.Count = 0 Then
.ListRows.Add: lig = 1
Else: .ListRows.Add: lig = .ListRows.Count
End If
With .DataBodyRange
.Item(lig, 1) = Worksheets("Formulaire").Range("B7").Value
.Item(lig, 2) = Worksheets("Formulaire").Range("B9").Value
.Item(lig, 3) = Worksheets("Formulaire").Range("B11").Value
.Item(lig, 4) = Worksheets("Formulaire").Range("B13").Value
.Item(lig, 5) = Worksheets("Formulaire").Range("B15").Value
.Item(lig, 6) = Worksheets("Formulaire").Range("B17").Value
.Item(lig, 7) = Worksheets("Formulaire").Range("D7").Valu
End With
End With
End If
End sub
Cordialement