Comparaison d'ensembles de données - Matrice - VBA

Bonjour,

Mon problème est le suivant:

J'ai deux feuilles excel, chacune contenant un tableau similaire dans sa construction mais contenant des données différentes.

J'aimerais comparer les données de ces deux tableaux, et plus précisément repérer les combinaisons nouvelles entre deux colonnes qui m'intéressent particulièrement.

Admettons que les colonnes 1 et 2 m'intéressent. Nous avons sur une ligne une combinaison de deux données sur les colonnes 1 et 2. J'aimerais vérifier que dans une autre feuille, contenant un tableau similaire donc, si cette même combinaison apparait au moins une fois. Si ce n'est pas le cas, c'est que cette combinaison est nouvelle! Et si elle est nouvelle il faut pouvoir la réécrire dans une autre feuille encore, afin de créer au final une liste de nouvelles combinaisons.

Je joins à cette demande un fichier .xlsm afin d'illustrer mon problème:
http://cjoint.com/?DDrl3vI4ENz

J'ai déjà pas mal réfléchi à mon problème, voici le code (que j'ai adapté dans le fichier exemple):


Sub Comparaison()

Dim LineN As Integer
Dim LineNm As Integer
Dim LastLineN As Integer
Dim LastLineNm As Integer
Dim Lettren As String
Dim Lettrenm As String
Dim Chiffren As String
Dim Chiffrenm As String
Dim Nbreapparition As Integer
Dim LineRes As Integer

LastLineN = Sheets("n").Range("A65536").End(xlUp).Row
LastLineNm = Sheets("av").Range("A65536").End(xlUp).Row
LineRes = 2

For LineN = 2 To LastLineN Step 1
Lettren = Sheets("n").Cells(LineN, 1)
Chiffren = Sheets("n").Cells(LineN, 2)
Nbreapparition = 0

For LineNm = 2 To LastLineNm Step 1
If Sheets("av").Cells(LineNm, 1).Value = Lettren And Sheets("av").Cells(LineNm, 2).Value = Chiffren Then
Nbreaparition = Nbreaparition + 1
End If
Next LineNm
If Nbreaparition = 0 Then
Sheets("Résultat").Cells(LineFiche, 1).Value = Lettren
Sheets("Résultat").Cells(LineFiche, 3).Value = Chiffren
LineRes = LineRes + 1
End If
Next LineN
End Sub

Mais ce code ne fonctionne pas! Il me sort n'importe quoi, ne détecte pas les nouvelles combinaisons...

J'ai pensé qu'il faudrait utiliser les fonctions d'analyse matricielle mais n'ai pas réussi à les utiliser. Genre quelque chose comme ça mais je comprends moyen ces outils:
With Sheets("av")
Set Plageproductnm = .Range(.Cells(2, 9), .Cells(LastLineNm, 9))
Set Plagesubstnm = .Range(.Cells(2, 11), .Cells(LastLineNm, 11))
End With
For LineN = 2 To LastLineN Step 1
Productn = Sheets("n").Cells(LineN, 9)
Substn = Sheets("n").Cells(LineN, 11)
Nbreapparition = 0
Variable1 = "=SUMPRODUCT((Plageproductnm= " & Productn & " )*(Plagesubstnm= " & Substn & " ))"
Variable2 = Evaluate("=sum((Plageproductnm=" & Productn & ")*(Plagesubstnm=" & Substn & "))")
Next LineN
Ensuite je met des conditions selon les valeurs des variables 1 et 2. Enfin bref.

Si quelqu'un pouvait m'aider ce serait génial. Je m'arrache les cheveux là dessus.

Merci à tous ceux qui prendront le temps de m'aider