Insertion de ligne via macro

[Kim75]

Bonsoir le forum,

J'utilise une macro qui consiste à ajouter une ligne en dessous d'une certaine cellule lorsque cette dernière est remplie,
Le problème est que cette macro ne fonctionne que lorsqu'on remplit manuellement la cellule en question dans la feuille,
Si en l'occurrence, cette cellule est remplie via une formule qui lui injecte une valeur, aucune ligne n'es ajoutée en dessous,
Ce serait sympa si quelqu'un avait une idée pour solutionner ce problème, je m'y connais un peu en vba mais pas trop,

Voici ma macro d'ajout de ligne:

Private Sub Worksheet_Change(ByVal Target As Range)
r = Target.Row
c = Target.Column
If c <> 1 Then Exit Sub
Application.EnableEvents = False
NextLineValue = Cells(r + 1, c)
If NextLineValue = "Total" Then
Target.EntireRow.Copy
Rows(r + 1).Insert
Rows(r + 1).SpecialCells(xlConstants).ClearContents
End If
Application.EnableEvents = True
End Sub

Voici la formule de remplissage de la cellule :

=SI(E15="";"";SI(GAUCHE(E15;1)="T";RECHERCHEV(E15;Liste;2;FAUX);RECHERCHEV(E15;Liste;2;FAUX)))

Cordialement, Kim.