Macro pour fichier de stock

Bonjour à tous,

Je me permets de revenir vers vous (ça faisait longtemps !), j'ai un problème sur une macro Excel de fichier de stock courant. Il fonctionne très bien en soi, mais c'est plutôt la fonction de suppression de ligne ou de colonne qui merde si la macro est en route. En gros si j'essaie de supprimer une ligne, Excel supprime cette ligne ET celle d'en dessous, systématiquement.

Vous me direz, ya qu'à mettre la macro en pause et supprimer les lignes ou colonnes, mais ça peut devenir très vite chronophage, et j'aimerais bien savoir d'où vient ce maudit problème !!


A propos : Lorsque le magasinier reçoit des panneaux (l'exemple en PJ), admettons la ligne 4 : Méla 8mm, Il rentre la quantité de panneaux dans la colonne F et la macro ajoute cette quantité à la colonne H et M. S'il sort une matière c'est pareil, sauf que c'est une soustraction et un décalage de colonne. Colonne I K et M.

Voici la salve de questions :
1- La macro est insérée dans chaque feuille. Je ne sais pas si c'est une bonne idée, en tout cas ça fonctionne. C'est exactement la même macro pour toutes les feuilles.


2- J'ai mis en place une gestion des erreurs pour éviter que Excel plante si on supprime un ligne ou colonne. Ca a le mérite de ne plus planter mais ça apporte le bug décrit plus haut : Supprimer la ligne et celle d'en dessous pour le cas d'une suppression de ligne.

3- Voici la macro en question. Dites-moi si j'ai merdé qqpart. C'est complètement possible vu mon maigre niveau en Vbe.

Sub Worksheet_Change(ByVal Target As Range)
 
  On Error Resume Next
 
  'gestion des erreurs
  Application.EnableEvents = False
  Application.Calculation = xlCalculationManual
 
  'cellule remplie dans la colonne E ou H
  If Not Intersect(Target, Range("F:F, I:I")) Is Nothing Then
   
    Dim Total As Single
   
    'enregistrer la valeur
    Total = Target(1, 3).Value
   
    'valeur différente de 0 et numérique
    If IsNumeric(Target) _
    And Not Target.Value = 0 Then
      'Remplir la cellule stock
      Target(1, 3).Value = Total + Target.Value
      'Remplir la cellule date
      Target(1, 2) = Now
      'Effacer la valeur rentrée
      Target.Value = ""
    End If

  End If
 
  'gestion des erreurs
  Application.EnableEvents = True
  Application.Calculation = xlCalculationAutomatic
   
End Sub

Le fichier est en PJ ici, pour vous faire une idée.
https://www.cjoint.com/c/JEtpV0dQgCf

Tous les conseils sont bons, n'hésitez pas.
Merci !
Matt.