Sub Tri()
Dim DerCol As Integer, Plage As Range, C As Range, Col As Integer
With Sheets("Trace")
DerCol = .Rows(1).Find("*", , , , , xlByColumns, xlPrevious).Column
Set Plage = .Cells(1, 1).Resize(, DerCol)
End With
With Sheets("Feuil1")
For Each C In Plage
If C.Value = 1 Then
Col = Col + 1
C.EntireColumn.Copy .Cells(1, Col)
End If
Next C
End With
End Sub