Inserer une ligne automatiquement

Bonjour ,

est-il possible d'ajouter une ligne automatiquement au dessus de total (cf fichier ci joint), des qu'il ne reste qu'une seule ligne, Le but serait d'adapter le devis aux nombres de lignes donc en conservant les formules de la ligne au dessus (sans faire à chaque fois insertion ligne ) .

C'est à dire , des qu'il n'y a plus de ligne vide , au dessus de total, le système en intègre une automatique ( en conservant les formules de la ligne du dessus ) et ainsi on, peut faire un devis avec une multitudes de ligne ....

Si c'est possible sans macro , c'est encore mieux ....

Merci pour votre aide

Bonne soirée

BRU12

Salut Bru,

vois pas comment faire sans VBA...

Tu cliques en [A] sur la cellule vide et une nouvelle s'insère.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
iTRow = Target.Row
If Not Intersect(Target, Range("A:A")) Is Nothing And Target.Offset(1, 0) = "Total" Then
    Range("A" & iTRow & ":E" & iTRow).Insert shift:=xlDown
    Range("E" & iTRow).FormulaLocal = "=D" & iTRow & "*C" & iTRow
End If
'
End Sub

A+