Petite amélioration d'un bout de macro

[nougitch]

Bonjour,

J'aimerais savoir s'il existe une méthode plus propre de faire ce traitement :

With ThisWorkbook.Sheets("Trading")
            .Range("A65536").End(xlUp).Offset(1, 0).Interior.ColorIndex = 40
            .Range("B65536").End(xlUp).Offset(1, 0).Interior.ColorIndex = 40
            .Range("C65536").End(xlUp).Offset(1, 0).Interior.ColorIndex = 40
            .Range("E65536").End(xlUp).Offset(1, 0).Interior.ColorIndex = 40
            .Range("F65536").End(xlUp).Offset(1, 0).Interior.ColorIndex = 40
            .Range("G65536").End(xlUp).Offset(1, 0).Interior.ColorIndex = 40
            .Range("H65536").End(xlUp).Offset(1, 0).Interior.ColorIndex = 40
            .Range("C65536").End(xlUp).Offset(1, 0).Value = "B"
            .Range("F65536").End(xlUp).Offset(1, 0).Value = OrderQuantity
            .Range("H65536").End(xlUp).Offset(1, 0).Value = -(OrderQuantity * OrderPrice * SpotProductPointValue)
        End With

Merci par avance pour votre aide.
Cdt,