[Excel VBA] Rech mots suppr jusqua autre mot

Bonjour,

Dans le cadre d'un TDB je sollicite votre aide afin de résoudre mon problème.

Je vous joins le fichier :

https://www.cjoint.com/?dejMlbQMOx

Ce que je souhaiterai en fait c’est que la macro recherche dans la colonne D le mot « INTERE » que cela selectionne les lignes jusqu’à ce que le mot « CAPITA » soit trouvé mais que la selection s’arrete à la ligne au-dessus. Une fois la selection effectuée, que cela supprime les lignes entières de la selection. Dans le but d’eviter les doublons CAPITA et INTERE qui reprennent les memes données.

Dans un second temps il faudrait que les lignes vides en-dessous du nom de chaque client soit rempli des données de la ligne client originale.

Dans l’onglet « Version Finale » du fichier vous retrouverez ce que cela doit donner au final :-)

Je vous joins une macro que j'ai testé mais qui marche pas :

Dim sh As Excel.Worksheet, x As Long, i As Integer
Set sh = Sheets("Regroupement")
For x = sh.Range("D" & Application.Rows.Count).End(xlUp).Row To 2 Step -1
If sh.Range("D" & x).Value Like "*INTERE*" Then
For i = 1 To Range("D:D").Value = "*CAPITA*" Step - 1
sh.Rows(x).Delete
Next i
End If
Next x
Set sh = Nothing




End Sub


Merci pour votre aide.