Une macro pour supprimer des ligne dans un message

[blade2a]

Bonjour a tous,
Je recherche a faire un petit outil pratique, en fait voila, je suis dans la marine, et j ai des messages a envoyer avec des informations sur les bateaux que l on croise, voici l exemple de message (je vous ne donne juste une partie car en général il y a plus de 300 bateaux) :

CTC/T00001/UNEQUATED-FAUST//TM/UNK//AG///NSP/00///////V2NA4/
POS/131535Z8/JUN/3600N9/01400E5/AIS//1NM/1NM/054T/08.5K////OWN//NPH/1
RMKS/1/9125085/304302000/UNK
RMKS/2/CHIOGGIA//170800Z6/JUN
RMKS/3/LPOC UNK//ETD UNK/
CTC/T00002/UNEQUATED-LPG/C GAZ REDSEA//TMO/UNK//PA///NSP/00//////
/HOBV/
POS/131758Z5/JUN/3601N0/01456E6/AIS//1NM/1NM/078T/00.1K////OWN//NPH/1
RMKS/1/9264192/353130000/UNK
RMKS/2/HURDBANK FOR ORDER//101230Z7/JUN
RMKS/3/LPOC UNK//ETD UNK/
CTC/T00003/UNEQUATED-JOLLY GRIGIO//TM/UNK//IT///NSP/00///////IBSZ/
POS/131758Z5/JUN/3254N4/01311E6/AIS//1NM/1NM/348T/00.0K////OWN//NPH/1
RMKS/1/7616353/247134000/UNK
RMKS/2/TRIPOLI//111200Z5/JUN
RMKS/3/LPOC UNK//ETD UNK/
CTC/T00004/UNEQUATED-UNKNOWN///UNK//DE///NSP/00////////
POS/131421Z2/JUN/3734N7/01624E3/AIS//1NM/1NM/112T/19.0K////OWN//NPH/1
RMKS/1/0000000/211378370/UNK
RMKS/2/NPOC UNK//ETA UNK/
RMKS/3/LPOC UNK//ETD UNK/

Alors voila, il y a des bateaux qui ne sont pas reconnu, les « UNEQUATED-UNKNOWN » (le CTC04) il faudrait qu en cliquant sur un bouton, il me supprime tout ce qui concerne ce bateau, donc la ligne CTC, la ligne POS et les lignes RMKS qui corresponde a ce bateau, donc en gros la ligne CTC et les 3 lignes qui suivent si quelqu un peut m aider a faire ca ou sur excell ou sur word ce serait super sympa, car je suis vraiment une buse en programmation, mais ca m aidera énormément

Merci d'avance