Aide sur un code de comparaison

Bonjour tt le monde

J'ai besoin de votre aide svp !! je vais vous expliquer la problematique et ma partie du code et si quelqu'un peut m'aider ca serai génial .

j'ai une feuille excel avec 4 colonnes :

colonne A = user (user1,user2,user3......)

colonne B = fonctionnalitées ( fonc1, fonc2, fonc3.....)

colonne C = user (user1,user2,user3......)

colonne D = fonctionnalitées ( fonc1, fonc2, fonc3.....)

je veux comparer dans la meme feuille les colonne A,B et C,D a la fois sachant que les colonne C et D sont la version nouvelle des données de A et B et que les user de la colonnes C peuvent changer d'ordre et de fonctionnalitées

le résultat est stockee dand 3 colonne = les user ( colonne F ) et les fonctionnalitées_supprimées (colonne G ) et les nouvelles_fonctionnalitées ( colonne H )

Voila le code que j'ai cree il marche bien sauf que pour les nouvelles fonctionalites il me les affiche pas toutes pour chaque user il me montre que une nouvelle fonctionnalitee ou il doit me montrer toutes les nouvelles fonctionnalitees voila le code aidez moi a trouver une solution SVP merci d'avance

 
 Private Sub CommandButton2_Click()
  Dim rngCell As Range
    For Each rngCell In Range("A2:A20000")
        If WorksheetFunction.CountIf(Range("C2:C20000"), rngCell) > 0 Then
            Range("F" & Rows.Count).End(xlUp).Offset(1) = rngCell
            Range("F" & Rows.Count).End(xlUp).Offset(0, 1) = rngCell.Offset(0, 1).Value
            Range("F" & Rows.Count).End(xlUp).Offset(0, 2) = Application.WorksheetFunction.VLookup(rngCell.Value, Range("C2:D20000"), 2, 0)
        ElseIf (rngCell <> "") Then

            Range("F" & Rows.Count).End(xlUp).Offset(1) = rngCell
            Range("F" & Rows.Count).End(xlUp).Offset(0, 1) = rngCell.Offset(0, 1).Value

        End If
    Next

    For Each rngCell In Range("C2:C20000")
        If (WorksheetFunction.CountIf(Range("A2:A20000"), rngCell) = 0 And rngCell <> "") Then
              Range("F" & Rows.Count).End(xlUp).Offset(1) = rngCell
              Range("F" & Rows.Count).End(xlUp).Offset(0, 2) = rngCell.Offset(0, 1).Value
        End If
    Next

End Sub

Bonjour,

Merci de joindre une partie du fichier ( en plus du code)