Archives de données à 2 conditions

Bonjour PMO,
je suis nouveau dans ce forum, mais depuis j'ai apris avec vous, j'ai même profiter de la macro pour archivage postée dans une réponse quelques part, mais je ne retrouve pas, donc, j'éxpose mon soucie directement, je m'éxplique :
j'utilse la macro la macro suivante :

Sub Archive()

Matricule = Sheets("Fiche de Position").Range("j11").Value

If Sheets("Archives").Range("b:b").Find(what:=Matricule) Is Nothing Then

Fin = Sheets("Archives").Range("b" & 65535).End(xlUp).Row + 1

Sheets("archives").Range("b" & Fin).Value = Sheets("Fiche de Position").Range("j11").Value
Sheets("archives").Range("c" & Fin).Value = Sheets("Fiche de Position").Range("k10").Value
Sheets("archives").Range("d" & Fin).Value = Sheets("Fiche de Position").Range("j13").Value
Sheets("archives").Range("f" & Fin).Value = Sheets("Fiche de Position").Range("k17").Value

Else

MsgBox ("Vous avez deja archivé ce Matricule")

End If

End Sub

la 1ère condition c'est le matricule (ça marche), je voudrais juste ajouter une deuxième condition pour la date qui se troiuve dans "Fiche de Position J13".

la finalité j'aimerais avoir : l'archivage de tous les matricules avec les différentes dates, mais pas en double (matricule, date).

Merci d'avance pour votre aide