Dim plage As Range, c As Range
Dim LastLig As Long
Dim i As Byte
LastLig = Sheets("Feuil2").Range("A65536").End(xlUp).Row
Set plage = Sheets("Feuil2").Range("A7:A" & LastLig)
Set c = plage.Find(Sheets("Feuil1").Range("A1").Value, LookIn:=xlFormulas, lookat:=xlWhole)
If Not c Is Nothing Then
For i = 1 To 5
c.Offset(0, i).Value = Sheets("Feuil1").Range("B" & i + 4).Value
Next i
End If
Set c = Nothing
Set plage = Nothing