Comparer liste de numéro

Bonjour à tous,

J'ai besoin d'un petit coup de pouce pour la rédaction d'une macro.

J'ai trois feuilles dans le fichier en PJ (Ref, M+1, Delete), je voudrais comparer les feuilles Ref et M+1, les nombres qui ne sont plus présent dans la feuille M+1 alors ils seront copié vers la feuille Delete.

Avez-vous une idée ?

Merci pour votre aide.

Thomas

Bonjour,

Sub comparer()
Dim dico As Object
    Set dico = CreateObject("Scripting.Dictionary")

    mplusun = Sheets("M+1").Range("A2:A" & Sheets("M+1").Range("A" & Rows.Count).End(xlUp).Row)
    ref = Sheets("Ref").Range("A2:A" & Sheets("Ref").Range("A" & Rows.Count).End(xlUp).Row)

    For i = LBound(mplusun) To UBound(mplusun)
        dico(mplusun(i, 1)) = ""
    Next

    For i = LBound(ref) To UBound(ref)
        If Not dico.exists(ref(i, 1)) Then Sheets("Delete").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = ref(i, 1)
    Next

End Sub

Bonjour,
Super, merci beaucoup pour le coup de main.

Bon dimanche :)