If lgD = 0 Then
flgAdd = -1 'il s'agit d'un ajout
If n + 3 = 65000 Then
MsgBox "Le tableau en feuille Inventaire est plein !", 48
lgD = 0: Exit Sub 'on fait rien, et on sort de la sub !
End If
.Rows(4).Insert xlDown, 1 'insertion d'une nouvelle ligne, en ligne n° 4
.Range("J4:K4") = 0 'Entrées = 0 ; Sorties = 0
lgD = 4 'ligne destination = ligne n° 4
End If