Détection erreur VBA

Bonjour,

je travail avec trois onglets sur un fichier excel. le premier onglet(Feuil 1) contien des informations matricul et nom colone A et B respectivement.

le Troiseme onglet (Feuil3) contient rien qu'une partie des matricules copiez collez dépuis l'onglet 1(Feuil1)

Le deuxieme onglet je veux afficher les résultats, c'est a dire une macro qui l'orsqu'elle parcoure longlet 3 elle parcoure en meme temps l'onglet 1 et si lors du parcoure des deux onglet 1 et 3 le numero matricule est identique alors elle vas afficher dans la feuil2 le nom qui est dans la colone B de la feuil1 et donc le matricul en colone A correspond au matricule sélectionez dans la feuil3

voici mon bout de code et mon fichier joint


Sub tes()

Dim sed As Integer

Dim chr As Integer

Dim alka As Integer


Dim i As Long


Dim j As Long


Dim k As Long




'limite = Range("A65536").End(xlUp).Row

Mide = Worksheets("Feuil3").Cells(Rows.Count, 1).End(xlDown).Row

Ngouan = Worksheets("Feuil2").Cells(Rows.Count, 1).End(xlDown).Row

' variable pour la première boucle

sed = 1

' variable pour la deuxième boucle

chr = 1

alka = 2


'For i = sed To Ngouan

'call = cells(i,1).Value


For j = chr To Mide


If (Cells(j, 1).Value = Sheets("Feuil1").Cells(Rows.Count, 1).Value) Then


For k = sed To Ngouan




Sheets("Feuil2").Cells(k, 1).Value = Sheets("Feuil1").Cells(Rows.Count, 1).ofset(0, 1)



Next k

End If

Next j

'Next i

End Sub

quand je le compile il n'ya pas d'érreur mais il prend trops de temps a compilé et n'affiche aucun résultat.