Bon pour la décoration tu te débrouilleras hein :
Sub test()
Dim rng As Range, i%, iC%, S$
With Feuil3
i = .Range("D3").End(xlDown).Row - 2
Set rng = .Range("A3").CurrentRegion
With rng
Arr = rng.Offset(, 1).Resize(.Rows.Count, .Columns.Count - 2).Value
End With
For iC = 3 To UBound(Arr, 2)
If Arr(i, iC) = "<70%" Then S = S & Arr(1, iC) & ","
Next
S = Left(S, Len(S) - 1)
End With
For i = 0 To UBound(Split(S, ","))
Worksheets("Remplissage").Cells(3, i + 1) = Split(S, ",")(i)
Next
End Sub
A+