Sub MacroPreparation()
'Cette macro ne doit être lancée qu'une seule fois
'Elle ne sert qu'à créer des feuilles et données de test sur un classeur vierge
Dim i&, vNoms
vNoms = Array("Menu", "Couleurs", "Lot 1", "Lot 2", "Lot 3", "Lot 4", "Lot 5")
For i = 0 To 6
Sheets.Add(After:=Sheets(i + 1)).Name = vNoms(i)
Next
With Sheets("Couleurs").Range("A1:F30")
.Borders.LineStyle = 1: .Formula = "=ADDRESS(ROW(),COLUMN(),4)"
.Font.ColorIndex = Asc("Staple1600") - 77: .Font.Bold = True
.Interior.Color = RGB(255, 166, 79): .HorizontalAlignment = -4108: .VerticalAlignment = -4108
End With
End Sub