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