Bonjour je ne comprends pas pourquoi ma macro bloque a cette ligne en jaune ...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
With Sheets("SUIVTRANS EN COURS")
    Derligne = .Range("A" & Rows.Count).End(xlUp).Row
    For j = 3 To Derligne
    
    'ANNULATION TECHNIQUE (5)
      If Mid(.Cells(j, "6").Text, 5, 1) = "A" And Mid(.Cells(j, "6").Text, 1, 1) = "S" Then
        .Cells(j, "13").Value = "ANNULATION TECHNIQUE" And .Cells(j, "12").Value = "ANNULATION TECHNIQUE"
       
        'REGULARISATION ECART-TEMPLATE (2)
       
        ElseIf .Cells(j, 18) >= -10 And .Cells(j, 18) <= 10 And .Cells(j, 18) <> 0 Then
         .Cells(j, 13).Value = "REGULARISATION ECART-TEMPLATE"
            
        'SOLDE CREDITEUR - A REMBOURSER (3)
      
        ElseIf .Cells(j, 9) = "REGLT" And .Cells(j, 18) < -10 Then
            .Cells(j, 13).Value = "REGLT CIE - SOLDE CREDITEUR"
            
        ElseIf .Cells(j, 9) = "REGLT" And .Cells(j, 18) < -10 And .Cells(j, 12) = "RECOURS MATERIEL" Or .Cells(j, 12) = "RECOURS CORPOREL" Or .Cells(j, 12) = "RECOURS RC" Then
            .Cells(j, 13).Value = "SOLDE CREDITEUR - RECOURS"
            
        ElseIf .Cells(j, 9) = "REGLT" And .Cells(j, 18) And .Cells(j, 12) <> "RECOURS MATERIEL" Or .Cells(j, 12) <> "RECOURS CORPOREL" Or .Cells(j, 12) <> "RECOURS RC" Then
            .Cells(j, 13).Value = "SOLDE CREDITEUR - A REVOIR"
        
        
        
        'REGLT CIE - SOLDE DEBITEUR (4)
      
         ElseIf .Cells(j, 9) = "REGLT" And .Cells(j, 18) > 10 Then
            .Cells(j, 13) = "REGLT CIE - SOLDE DEBITEUR"
            
       
        
      End If

    Next j
        
End With
End sub