Insertion de lignes avec contenu fixe à chaque changement

Bonjour,

Je souhaite que vous m'aidez à ajouter 7 lignes à chaque changement de valeur dans la conne A.

Mais aussi, d'avoir la présentation suivante.

Merci par avance.

Bonjour,

Vous devriez joindre un fichier d'exemple afin de pouvoir adapter la macro à votre cas précis.

En attendant voici un code à ajouter dans le code de la feuille en question, que j'ai essayé de rendre le plus adaptable possible au vu du peu d'informations fournies.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim changedCell As Range
  Set changedCell = Target.Cells(1, 1)

  If changedCell.Column = 1 And changedCell.Row > 1 Then
    If changedCell.Offset(-1, 1).Value2 = "Dépenses d'investissement sur PIP/RE" Then
      changedCell.Offset(1, 0).Resize(7).Insert xlShiftDown
      changedCell.Offset(-7, 1).Resize(7).Copy changedCell.Offset(0, 1)
    End If
  End If
End Sub

Bonsoir, Merci pour l'accompagnement.

Je souhaite que vous m'aidez à ajouter 7 lignes à chaque changement de valeur dans la colonne B.

les colonnes H, I, J et K contiennent les montant. En fait, l'on doit calculer les sommes.si ....

Voici le fichier. Merci pour votre aide.