Matcher Des comptes

Bonjour à Tous,

Je cherche à savoir si mes comptes de la Liste1(Feuille1) sont présent dans la Liste2(Feuille2).

Si ça match alors ils viennent s'implémenter à la suite dans ma Feuille 3.

Exemple de mon code qui ne fonctionne évidemment pas:

Sub liste()

Dim NumCompte As Range

Last_Ligne = Sheets("A imprimer et à saisir").Range("A50").End(xlUp).Row

'Les comptes que je cherche

ListeCompte1 = Sheets("Translation de compte").Range("C50", Range("C300").End(xlUp).Row)

'Là où je cherche

ListeCompte2 = Sheets("Verification des comptes d'OD").Range("E2", Range("E300").End(xlUp)).Row

For Each NumCompte In ListeCompte1

If InStr(ListeCompte2, NumCompte) > 0 Then

Cells(Last_Ligne + 1, 1) = NumCompte

End If

Next

End Sub

En vous remerciant d'avance.

Bien à vous.

Bonjour

Tu devrais joindre ton fichier.

Bye !

C'est vrai, pardon.

Voici le fichier.

Bonjour

Un essai à tester. Te convient-il ?

Bye !

C'est génial,

Merci énormément.

Bien à toi.