Ajout d'une contrainte dans un programme

Bonjour à tous,

Voila, j'ai une macro VBA à faire portant sur une modification (plutot suppression dans mon cas ) d'une même donnée sur plusieurs lignes issus du fichier text ( via Excel) .
sur mon "tex"t, il y a 200 lignes et sur mon programme , j'ai programmé qu'il doit toujours supprimer la 1er donnée (qui est censé etre "AED" ) MAIS je veux lui mettre une contrainte que si cela n'est pas AED, qu'il ne doit pas la supprimer. apres libre au systeme soit de continuer à la prochaine ligne ou bien qu'il s'arrete

Voici ma macro : "nu_doss_titre" est le fichier text ou vba va chercher les lignes et "transmitANsi "d" la manette de suppression
je veux que la contrainte soit entre TABKEY et "transmitANSI"d" afin qu'il sache que si la donnée n'est pas AED, quil ne supprime pas et quil passe à la suivante..

Sub SUP1deviseAED()
'
' Generated by the Reflection Macro Recorder on 12-09-2019  17:58:23.03
' Generated by Reflection for IBM for Windows 14.0.288
'
Dim nu_doss_titre As String
'
Open "U:\dddd.txt" For Input As #1
Do While Not EOF(1)
Input #1, nu_doss_titre
    With Session
        .WaitForEvent rcEnterPos, "30", "0", 5, 53
        .TransmitANSI nu_doss_titre
        .TransmitTerminalKey rcIBMEnterKey
        .WaitForEvent rcKbdEnabled, "30", "0", 1, 1
        .WaitForEvent rcEnterPos, "30", "0", 5, 41
        .TransmitTerminalKey rcIBMTabKey
        .TransmitTerminalKey rcIBMTabKey
        .TransmitTerminalKey rcIBMTabKey
        .TransmitANSI "d"
        .TransmitTerminalKey rcIBMEnterKey
        .WaitForEvent rcKbdEnabled, "30", "0", 1, 1
        .WaitForEvent rcEnterPos, "30", "0", 5, 41
        .TransmitTerminalKey rcIBMPf14Key

Je ne sais pas si cela est clair mais a dispo si besoin

Cdlmt
Sufyan