Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Application.ScreenUpdating = False 'masque les raffraîchissements d'écran
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, "E").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne E (à adapter à ton cas, peut-être G) de l'onglet O
For I = DL To 1 Step -1 'boucle inversée des lignes DL à 1 en remontant
'si la cellule ligne I colonne E vaut "CDU" ou si la cellule ligne I colonne G convertie en texte vaut "201", efface la ligne
If Cells(I, "E") = "CDU" Or CStr(Cells(I, "G")) = "201" Then O.Rows(I).Delete
Next I 'prochaine ligne de la boucle
End Sub