Sub Commandes()
Dim L1 As Long, L2 As Long, L3 As Long, Trouve As Boolean
'Effacement du tableau de résultat
Range("k2:n" & Range("l2").End(xlDown).Row).ClearContents
L3 = 2 '1ère ligne du tableau de résultats
'on va prendre les commandes du tableau2 1 par 1
'et les comparer au tableau1
For L2 = 2 To Range("d2").End(xlDown).Row
'pas trouvé à ce stade
Trouve = False
For L1 = 2 To Range("j2").End(xlDown).Row
If Range("d" & L1).Value = Range("j" & L2).Value And Range("b" & L1).Value = Range("h" & L2).Value Then
'Si trouvé
Trouve = True
End If
Next L1
'Comparaison avec le tableau1 finie
If Trouve = False Then
'pas trouvé, donc on ajoute au tableau des résultat
Range("l" & L3).Value = Range("j" & L2).Value
Range("m" & L3).Value = Range("H" & L2).Value
Range("n" & L3).Value = Range("g" & L2).Value
L3 = L3 + 1
End If
Next L2
End Sub