Private Sub Worksheet_Activate()
Dim col, n%
col = [{2,"N°";1,"Date";5,"Initiateur";9,"Mt_Initial";8,"Détails";6,"Dépenses";7,"Recettes";12,"Pointage"}]
Application.ScreenUpdating = False
[A1].CurrentRegion.Delete xlUp 'RAZ, les largeurs des colonnes sont conservées
For n = 1 To UBound(col)
Feuil1.[A5].CurrentRegion.Columns(col(n, 1)).Copy Cells(1, n)
Cells(1, n) = col(n, 2)
Next
End Sub