Bonjour soan , jean marie
alors comment transformer ce code pour insérer un ligne au position 4 au lieu de mètre en bas de tableau inventaire
Private Sub MajInventaire()
Dim QS&, n&
With Worksheets("Inventaire")
n = UBound(TblInv): lgS = 0: lgD = 0
GetLig ComboBox1, n, lgS: If lgS...