Réponse acceptée !
Bon alors je n'ai pas fait de test mais ca devrais le faire
'Le principe est de comparer toutes les ligne de test1 à test2 (temps que on ne l'a pas trouver):
'-----------------------------------------
Sub test()
Dim Test1(15, 15) As Long
Dim Test2(20, 15) As String 'Nombre de colone identique!!!
Dim Flag, Flag2 As Boolean
Dim CptLigne1, CptLigne2, CptColone As Long
Do While CptLigne1 <= UBound(Test1, 1) 'Scan de toute les ligne de Test1
Flag2 = True
'Scan de toute les ligne de Test2 si ligne de test1 non trouver dans test2
Do While CptLigne2 <= UBound(Test2, 1) And Flag2
'Passe le flag à vrais (test la differance et non l'égalité)
Flag = True
'Scan de toute les colones temps que les donnée sont identique
Do While CptColone <= UBound(Test1, 2) And Flag
'Si les donnée sont differante stop la boucle (ça ne sert plus à rien!)
If CStr(Test1(CptLigne1, CptColone)) <> CStr(Test2(CptLigne2, CptColone)) Then
'Flag à faux
Flag = False
End If
CptColone = CptColone + 1
Loop
If Flag Then
'Ligne de test1 trouver dans ligne2 flag2 = faux (ligne unique)
Flag2 = False
End If
CptColone = 0
CptLigne2 = CptLigne2 + 1
Loop
If Flag2 Then
'Ligne cptligne1 de test1 est unique
Else
'Ligne cptligne1 de test1 trouver dans test2 à la ligne cptligne2 - 1
End If
CptLigne2 = 0
CptLigne1 = CptLigne1 + 1
Loop
End Sub
'--------------
D'oh! Nuts!
Mmmmm...
DONUTS