With Worksheets("Données utiles")
HP1 = (.[G3].Value - .[F3].Value) * .[D3].Value
HP2 = (hp - .[G3].Value) * .[E3].Value
etc.
End With
Dim T() As Variant
T = Worksheets("Données utiles").[D3:G4].Value
HP1 = (T(1, 4) - T(1, 3)) * T(1, 1)
HP2 = (hp - T(1, 4)) * T(1, 2)
etc.