Sub TEST()
Dim PlageRefs As Range
Dim ligne As Long
Dim idx As Variant
With Sheets("Feuil1")
Set PlageRefs = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
With Sheets("Feuil2")
For ligne = 1 To .Cells(65536, 1).End(xlUp).Row
idx = Application.Match(.Cells(ligne, 1), PlageRefs, 0)
If Not IsError(idx) Then
PlageRefs.Cells(idx, 2).Resize(, 2).Copy Destination:=.Cells(ligne, 2)
End If
Next
End With
End Sub