Sub Mise_en_forme()
For j = 0 To V_Nb_Annees_Projection
'Couleur de l'onglet
Sheets("STOCK Contractuels " & F_Donnees_Contractuels.Cells(1, 1).Value).Tab.ColorIndex = 16
'Couleur des années en jaune
Sheets("STOCK Contractuels " & F_Donnees_Contractuels.Cells(1, 1).Value).Cells(1, j + 2) = V_Annee_Ref + j
Sheets("STOCK Contractuels " & F_Donnees_Contractuels.Cells(1, 1).Value).Cells(1, j + 2).Interior.Color = RGB(255, 255, 204)
For i = 0 To 120
'Couleur des âges en gris
Sheets("STOCK Contractuels " & F_Donnees_Contractuels.Cells(1, 1).Value).Cells(i + 2, 1).Value = i
Sheets("STOCK Contractuels " & F_Donnees_Contractuels.Cells(1, 1).Value).Cells(i + 2, 1).Interior.Color = RGB(162, 162, 162)
Next i
Next j
End Sub