Traitement de donnees avec une condition if

Bonjour,
Bonjour,

Bonjour j'ai de la misére a trouver mon erreur ;


ce code nous permet de remplire la colonne AP de chaque ligne par XX suite a une condition

le probléme c'est que j'aurais toujours un XX si la colonne (i,14).value = EA_DPD alors que la colonne AE a une valeur different que
(''Completed - Pool Created/ Complété - Bassin crée'') , on dirait il fait pas le controle sur la deuxieme condition

voici le code :

Sub Decision()


    Dim cell As Range
    
    Dim i As Integer
 
  For i = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
        If CStr(ActiveSheet.Cells(i, 31).Value) = "Completed - Appointment made / Complété - Nomination faite" Then
            If CStr(ActiveSheet.Cells(i, 14).Value) = "AEP" _
                Or CStr(ActiveSheet.Cells(i, 14).Value) = "CMC_REV" _
                Or CStr(ActiveSheet.Cells(i, 14).Value) = "CMC_APT" _
                Or CStr(ActiveSheet.Cells(i, 14).Value) = "CS_TPD" _
                Or CStr(ActiveSheet.Cells(i, 14).Value) = "DM_ID" Then
                    
                             ActiveSheet.Cells(i, 42).Value = "XX"
            End If
        
        
        End If
    
    
If CStr(ActiveSheet.Cells(i, 31).Value) = "Completed - Pool Created/ Complété - Bassin crée" Then
    If CStr(ActiveSheet.Cells(i, 14).Value) = "EA_CPC" _
                Or CStr(ActiveSheet.Cells(i, 14).Value) = "EA_DPD" Then

                             ActiveSheet.Cells(i, 42).Value = "XX"
    
    End If
    
    End If
    


    
    Next i


 End Sub