Comparer deux feuilles

bonjour a tous

Je sollicite votre aide car je ne sais plus quoi faire , j'ai une macro qui compare 1 et feuille 2 et extrait en feuille 3 les lignes identique

mais apparemment cela ne fonctionne pas peut a cause du format et pourtant il ya des lignes identique ?

(macro en feuille 3)

je vous joint ce fichier et vous remercie de votre aide

Salut Dehbi,

oui effectivement il y a des espaces à la fin de tous les "Uld Number" dans la feuille 1

essaie comme ca:

Option Explicit

Dim f1 As Worksheet, f2 As Worksheet, tablo1, tablo2, tabloR()
Dim i1&, i2&, j&, k&

Private Sub Worksheet_Activate()

    Set f1 = Sheets("Feuil1")
    Set f2 = Sheets("Feuil2")

    tablo1 = f1.Range("A1:A" & f1.Range("A" & Rows.Count).End(xlUp).Row)
    tablo2 = f2.Range("A1").CurrentRegion

    k = 0
    For i1 = 1 To UBound(tablo1, 1)
        For i2 = 1 To UBound(tablo2, 1)
            If Trim(tablo1(i1, 1)) = Trim(tablo2(i2, 1)) Then
                ReDim Preserve tabloR(UBound(tablo2, 2), k + 1)
                For j = 1 To UBound(tablo2, 2)
                    tabloR(j - 1, k) = tablo2(i2, j)
                Next j
                k = k + 1
            End If
        Next i2
    Next i1

    Range("A1").CurrentRegion.ClearContents
    Range("A1").Resize(UBound(tabloR, 2), UBound(tabloR, 1)) = Application.Transpose(tabloR)
End Sub

Bonne nuit

Super Merci beacucoup.

Bonne soirée