Sub Copiercoller()
Dim lig&, c As Range, col As Variant
With Feuil4 'CodeName
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
lig = .Range("A" & .Rows.Count).End(xlUp)(2).Row
.Cells(lig, 1).Resize(, 8) = Application.Transpose([F2:F9])
For Each c In [E10:E25]
If c <> "" Then
col = Application.Match(c, .[1:1], 0)
If IsNumeric(col) Then .Cells(lig, col) = c(1, 2)
End If
Next
End With
End Sub