Sub aaa_test()
Dim DerLigF1 As Long, DerLigF2 As Long
DerLigF1 = Feuil1.[A:Z].Find("*", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
DerLigF2 = Feuil2.[A:Z].Find("*", LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
With Feuil2.[BE2].Resize(DerLigF2 - 1)
.FormulaR1C1 = "=MATCH(RC1,Feuil1!R2C1:R" & DerLigF1 & "C1,0)"
.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Copy Feuil1.[A2]
.ClearContents
End With
Feuil1.[BE:BE].ClearContents
End Sub