Private Sub CommandButton1_Click()
Dim t, lObj As ListObject
Set f = Sheets("Enregistrements"): Set lObj = f.ListObjects("Tableau3"): Set ff = Sheets("Sortie")
Set Rng = ff.Range("J16:M16"): lObj.ListRows.Add (1)
With lObj.HeaderRowRange.Item(2)(2)
.Resize(, 4).Value = Rng.Value
.Offset(, 4).Resize(, 2).Value = Array(ff.[M9].Text, ff.[M12].Text)
End With
lObj.HeaderRowRange.Item(1)(2) = ff.[K9]: Union(Rng, ff.[K9], ff.[M9], ff.[M12]) = Empty
End Sub