Private Sub CommandButton4_Click()
Dim TVL(1 To 1, 1 To 6), C As Long, LOt As ListObject
For C = 1 To 6: TVL(1, C) = Me("TextBox" & C).Value: Next C
Set LOt = Feuil1.ListObjects(Feuil1.ListObjects.Count)
LOt.ListRows.Add.Range.Value = TVL
End Sub
Bonjour Tpacpc, Dranreb,
Pas tout compris à votre fichier.
Je me suis borné à remplir les tableaux avec les valeurs des textbox en insérant une ligne.
J'en ai profité pour optimiser les multiples écritures.