Private Sub Worksheet_Activate()
Dim col As Range, n As Variant
Application.ScreenUpdating = False
Rows("3:" & Rows.Count).Delete 'RAZ
With Feuil1.[A1].CurrentRegion
If .Rows.Count = 1 Then Exit Sub
For Each col In .Offset(1).Resize(.Rows.Count - 1).Columns
n = Application.Match(col.Cells(0), Rows(2), 0)
If IsNumeric(n) Then col.Copy Cells(3, n) 'copier-coller
Next
End With
End Sub