Insérer ligne automatiquement si ligne contient mot clef

Bonjour,

Je cherche un peu d'aide pour la création d'un module VBA pour automatiser une tâche interminable .

Je m'explique, je dois insérer une ligne automatiquement au dessus d'une autre si cette ligne contient un mot clef (dans mon cas : estimatif) sur un fichier assez lourd ayant un total de 2000 lignes.

Mon intention est de pouvoir faire cela d'un coup sans devoir faire de copier/coller pour chaque ligne concernée..

J'ai d'abord commencé par un copier/collé, puis j'ai rapidement laissé tomber et j'ai cherché sur le forum pour des demandes similaires, mais impossible d'adapter une formule proposée pour le même genre de problème. En faite je ne maîtrise pas du tout VBA et donc je ne comprend les détails de chaque ligne de code.

Si quelqu'un peut m'aider à résoudre cela, je serais ravi de ne pas perdre 5 jours de copier/coller :-)

Je joins un fichier "partiel" avec 16 lignes représentant le fichier de base et un autre avec ce que je souhaite obtenir comme résultat.

Merci beaucoup et bonne journée !

bonjour,

une proposition

Sub aargh()
    With Sheets("estimatif")
        dl = .Cells(Rows.Count, "B").End(xlUp).Row
        For i = dl To 1 Step -1
            If .Cells(i, "E") = "Estimatif" Then
                .Rows(i).Insert shift:=xlDown
                .Cells(i, 2) = 4
                .Cells(i, 3) = "CDC"
                .Cells(i, 5) = "Description des matériaux et de la mise en oeuvre"
            End If
        Next i
    End With
End Sub

Wouahhh trop bien !!!!

C'est mieux qu'une proposition, je viens de gagner qqls heures de sommeils !

Un tout grand merci pour ton aide !