For i = ActiveSheet.UsedRange.Columns.Count To 2 Step -1
If Cells(1, i) Like Sheets("Projets").Range("B6") Then
Columns(i).Select
Selection.Copy
Columns("F:F").Select
ActiveSheet.Paste
End If
Next
If Cells(1, 6) Like Sheets("Projets").Range("B6") Then
k = ActiveSheet.UsedRange.Rows.Count
Range("G1").Select
ActiveCell.FormulaR1C1 = _
"=IF(COUNTIF(R1C6:RC[-1],RC[-1])>1,RC[-1]&"" "",RC[-1])"
Range("G1").Select
Selection.AutoFill Destination:=Range("G1:G" & k), Type:=xlFillDefault
Columns("G:G").Select
Selection.Copy
Columns("F:F").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Columns("G:G").Delete
End If