VBA Problème lors de la comparaison de cellules

Coucou,

J'ai actuellement un ptit problème avec mon code.
Celui ci effectue presque la tâche que j'attend :
Copier telle valeur en fonction de l'identifiant correspondant trouvé, sauf que cela marche pour les 6 premiers identifiants et ensuite il me colle des valeur qui ne correspondent pas a l'identifiant en question

Une bonne âme pourrait elle m'aider à éclaircire ce problème ?

Merci d'avance

Sub comment()


Dim rng1 As Range
Dim rng2 As Range
Dim RowNo As Long
Dim liste() As Integer
Dim C As Range
Dim i As Integer

Set rng1 = Worksheets("Feuil2").Range("B1", Worksheets("Feuil2").Range("B" & Rows.Count).End(xlUp))
Set rng2 = Worksheets("Feuil3").Range("E1", Worksheets("Feuil3").Range("E" & Rows.Count).End(xlUp))
ReDim liste(0)
For Each C In rng1
If Application.WorksheetFunction.CountIf(rng2, C) > 0 Then
ReDim Preserve liste(UBound(liste) + 1)
liste(UBound(liste)) = C.Row
End If
Next C
'
For i = UBound(liste) To 1 Step -1
Worksheets("Feuil3").Activate
Worksheets("Feuil3").Cells(liste(i), 2).Copy
Worksheets("Feuil2").Activate
Worksheets("Feuil2").Cells(liste(i), 3).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next
End Sub