Ecriture de code avec with range ou équivalent

Bonjour je cherche juste une façon élégante d'écrire

Workbooks("Report.xlsx").Worksheets(1).Range("A" & 1) = "item produced"
    Workbooks("Report.xlsx").Worksheets(1).Range("A" & 1).Borders.Weight = 2
    Workbooks("Report.xlsx").Worksheets(1).Range("A" & 1).Borders.ColorIndex = 2
    Workbooks("Report.xlsx").Worksheets(1).Range("A" & 1).Interior.ColorIndex = 13
    Workbooks("Report.xlsx").Worksheets(1).Range("A" & 1).Font.ColorIndex = 2
    Workbooks("Report.xlsx").Worksheets(1).Range("A" & 1).Font.Size = 18

ça existe with Range?

Bonjour,

Un range est un objet comme les autres :

With Workbooks("Report.xlsx").Worksheets(1).Range("A" & 1)
    .Value = "item produced"
    .Borders.Weight = 2
    .Borders.ColorIndex = 2
    .Interior.ColorIndex = 13
    .Font.ColorIndex = 2
    .Font.Size = 18
end with

Pierre