Affecter une valeur avec deux critères de comparaison

Dern = Range("A" & Rows.Count).End(xlUp).Row 'passez le curseur sur dernièreLigne pour en lire la valeur

For cmpa = 2 To Dern 
For cmpb = 2 To Dern

Sub Analyse() 
Dim cmpa As Integer 
Dim cmpb As Integer 
Dim Dern1 As Long
Dim Dern2 As Long

Dern1 = Cells(Application.Rows.Count, 1).End(xlUp).Row
Dern2 = Cells(Application.Rows.Count, 15).End(xlUp).Row

Application.ScreenUpdating = False 

For cmpa = 2 To Dern2 
For cmpb = 2 To Dern1

If Range("J" & cmpa) = Range("B" & cmpb) And Range("K" & cmpa) = Range("C" & cmpb) Then 
Range("F" & cmpa).Value = Range("N" & cmpb).Value 
End If 
Next cmpb 
Next cmpa 

MsgBox "Analyse terminé !" 

End Sub 

Option Explicit
Option Base 1
'----------
Sub affecter_colO_si()
Dim Derlig As Integer, T_tampon
Dim Cptr As Integer, T_colbc(), T_colf
Dim Dico As Object, T_coljk, T_colo, Ref As String
Dim Start As Single

'-----------------------initialisation- mémorisation cellules En RAM
    Start = Timer
    Application.ScreenUpdating = False
    'nettoyage col F
    Range("F2:F10000").ClearContents

    'mémorisation tableaux BC et F
        Derlig = Columns("B").Find(what:="*", searchdirection:=xlPrevious).Row
        T_tampon = Range("B2:C" & Derlig)
        
        'concaténation des colonnes B & C
        ReDim T_colbc(Derlig - 1)
        For Cptr = 1 To UBound(T_tampon)
        T_colbc(Cptr) = T_tampon(Cptr, 1) & " " & T_tampon(Cptr, 2)
        Next
         Set T_tampon = Nothing

        'mémorisation colonne F
        T_colf = Application.Transpose(Range("F2:F" & Derlig))

    'mémorisation tableaux JK et O
        Derlig = Columns("J").Find(what:="*", searchdirection:=xlPrevious).Row
        T_coljk = Range("J2:K" & Derlig)
        T_colo = Application.Transpose(Range("O2:O" & Derlig))

    'Creation d'un couple JK concaténées et position dans taleau col O
        Set Dico = CreateObject("scripting.dictionary")
        For Cptr = 1 To UBound(T_coljk)
            Ref = T_coljk(Cptr, 1) & " " & T_coljk(Cptr, 2)
            If Not Dico.exists(Ref) Then
                Dico.Add Ref, T_colo(Cptr)
            End If
        Next
        
'---------------------Recherche des égalités colBC et dico et affectation de O dans F
    For Cptr = 1 To UBound(T_colbc)
        Ref = T_colbc(Cptr)
        If Dico.exists(Ref) Then: T_colf(Cptr) = Dico.Item(Ref)
        Next
'---------------------------restitution
    Range("F2").Resize(UBound(T_colf), 1) = Application.Transpose(T_colf)

' essai de durée à supprimer après essais
    Application.ScreenUpdating = True
     MsgBox "recherche effectuée en: " & Timer - Start & " sec."
End Sub