Ajout de ligne condition

Bonjour,
J'ai une feuille dans la colonne A on a: un mot qui est une variable,un espace, un tiret,un espace, un une variable connue. Exemple "xxx - Test1". Voir feuille jointe.
Je voudrais que lorsque pour la variable xxx Test 1 n'existe, la macro ajoute une ligne. et si elle existe ne rien faire.
Attention, il y a plusieurs mots variables (que je ne connais pas ):
aaa - Test1
aaa - Test2
aaa - Test3
aab - Test2
bab - Test1
bab - Test2

Les variables sont déjà trier par ordres alphabétiques. Je sais pas si cela change quelque chose

Bonjour,

Est-ce que tu peux donner un exemple ? Je n'y comprends goutte. Ajouter une ligne ? où ? Puisque la variable n'existe pas...

Désolé de ne pas voir été assez clair. Je vais essayer de faire plus simple.
En fait ce je veux c'est si pour xxx, test1 n'existe pas je veux ajouter une ligne. Si pour xxx, test1 existe ne rien faire.
Les écritures (aaa, ect) avant le tiret c'est un autre programme qui me les donnent, donc ça peux être n'importe quoi . Je connais seulement ce qu'il y aura après le tiret (Test1, Test2, Test3)
aaa - Test1
aaa - Test2
aaa - Test3
aab - Test2
bab - Test1
bab - Test2

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test() Dim C As Range With Sheets("Feuil1") For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1 txt = Split(.Cells(i, 1), " - ")(0) & " - " & "Test1" If Application.CountIf(.[A:A], txt) = 0 Then Rows(i).Insert .Cells(i, 1) = txt End If Next i End With End Sub

---

Merci, c'est presque ce que je voulais. Sauf que la ligne insérée doit être vide et dois se trouver ou devrais se trouvais le test1,2,3 manquant. Par exemple si avant macro :
aab - Test2
bab - Test1
bab - Test2
yyy - Test1
yyy - Test2

Après macro:
ligne vide ajoutée, car aab - Test1 n’existe pas
aab - Test2
ligne vide ajoutée, car aab - Test3 n’existe pas
bab - Test1
bab - Test2
ligne vide ajoutée, car bab - Test3 n’existe pas
yyy - Test1
yyy - Test2
ligne vide ajoutée, car yyy- Test3 n’existe pas

Il n'y a que test1, test2 et test3 ou il y en a un nombre indéterminé ?

Merci pour votre aide, j'ai réusis à résoudre le problème. Voici le code pour ceux que ça intéresse.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Option Explicit   Sub InsertionLigne() Dim EnCours As String Dim Ligne As Long Dim I As Integer Dim Suites   Suites = Array("Test1", "Test2", "Test3", "Test4") Application.ScreenUpdating = False Ligne = 1 Do While Range("A" & Ligne) <> "" EnCours = Left(Range("A" & Ligne), InStr(1, Range("A" & Ligne), " -") + 2) For I = 0 To UBound(Suites) If Range("A" & Ligne) <> EnCours & Suites(I) Then Rows(Ligne).Insert End If Ligne = Ligne + 1 Next I Loop Application.ScreenUpdating = True End Sub

---