Bonjour, j'ai un petit problème pour la conception d'une macro.

Le but de la manoeuvre est d'inserer une ligne au dessus de chaque case contenant le mot "Total" en colone D.

J'ai trouvé comment atteindre le mot total et ajouter une ligne mais il ne le fait que pour le 1er total alors que la feuille en contient une centaine.
Et ces "Total" sont dispersés aléatoirement, c'est à dire qu'il peut se présenter un "Total" ligne 2, ligne 4, ligne 9, ligne 45, etc. Ca ne se suit pas d'une manière définie.

Avez-vous des pistes?
Merci beaucoup.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Text
Sub insertionLigne()
    Dim x As Integer
 
    'Recherche le 1er numero de ligne contenant le mot "TOTAL" dans la
    '4ere colonne de la feuille active
    x = Application.WorksheetFunction.Match("*TOTAL*", _
        ActiveSheet.Columns(4), 0)
    'Insertion ligne
    Rows(x).Insert Shift:=xlDown
 
 
Exit Sub
End Sub