Bonjour,
Votre fichier test comporte tellement d'imprécisions qu'il est difficile de vous faire une réponse qui ait une chance de vous satisfaire.
En particulier pour la feuille 2 vous auriez du mettre des valeurs en colonne C.
Moyennant quoi la macro suivante est capable de récupérer les valeurs et de les mettre sur la feuille 1 sous la forme indiquée par Arturo.
Sub RecupL()
Dim Arr, ArrC, iLR%, i%, ii%
iLR = Feuil1.[A1].End(xlDown).Row
Arr = Feuil2.[A1].CurrentRegion.Value
ArrC = Feuil1.Range("A1:D" & iLR).Value
For i = 1 To UBound(Arr) 'Préparation
If Arr(i, 1) = "" Then Arr(i, 1) = Arr(i - 1, 1)
Next
For i = 1 To UBound(ArrC) 'Traitement
For ii = 1 To UBound(Arr)
If ArrC(i, 1) = Arr(ii, 1) Then
ArrC(i, 2) = Arr(ii, 3)
ArrC(i, 3) = Arr(ii + 1, 3)
ArrC(i, 4) = Arr(ii + 2, 3)
Exit For
End If
Next
Next
Feuil1.Range("A1:D" & iLR) = ArrC
End Sub
Cependant cela est étroitement dépendant de la disposition réelle des feuilles sources et cible, présence d'en-tête, ordre des critères, etc...
A+