Sub essai()
For Each c In [B1:E1]
[K1] = c
[G2] = c.Offset(1, 0)
[A1:E1000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[H1:H2], _
CopyToRange:=[J1:K1], Unique:=False
Set dt = Sheets("sélection").[A:A].Find(what:=[J2])
Set soc = Sheets("sélection").[1:1].Find(what:=[K1])
[K2:K100].Copy Sheets("sélection").Cells(dt.Row, soc.Column)
Next c
End Sub