Sub MiseEnPage()
Application.ScreenUpdating = False 'bloque le raffraichissement de l'écran pendant la macro
With ActiveSheet 'avec la feuille active
.Rows(1).Font.Bold = True 'Ligne 1 en gras
.Range("A2:D600").Font.Bold = True 'Colonne A à D en gras
.Range("E2:G600").Font.Bold = True 'colonnes E à G en gras
.Range("E2:G600").Font.Underline = True 'Colonnes E à G souligné
.Range("I2:Z600").Font.Size = 12 'taille de caractère
'Cacher les colonnes
.Columns("L:L").ColumnWidth = 0
.Columns("N:N").ColumnWidth = 0
.Columns("P:P").ColumnWidth = 0
.Columns("Q:Q").ColumnWidth = 0
.Columns("T:X").ColumnWidth = 0
'Format monétaire
.Range("K2:K600").NumberFormat = "#,##0.00 $"
.Range("R2:R600").NumberFormat = "#,##0.00 $"
.Range("Y2:Z600").NumberFormat = "#,##0.00 $"
'Format décimal
.Range("M2:M600").NumberFormat = "0.000"
.Range("O2:O600").NumberFormat = "0.000"
.Range("S2:S600").NumberFormat = "0.000"
'Centrer les colonnes I et J
.Range("I2:J600").HorizontalAlignment = xlCenter
End With
Application.ScreenUpdating = True
End Sub