Sub test()
Dim r As Range, R1, R2, R3, R4, OPE
Set r = Range("A1:Z256"): r.Name = "BASE"
'Récupère la valeur
R1 = Application.VLookup([A7], [BASE], 4, False)
R2 = Application.VLookup([A7], [BASE], 7, False)
R3 = Application.VLookup([A8], [BASE], 4, False)
R4 = Application.VLookup([A8], [BASE], 7, False)
R5 = Application.VLookup([A3], [BASE], 7, False)
'Ceci est l'opération qui doit être effectuée. J'aimerais que celle ci s'affiche dans une cellule par exemple.
OPE = (R1 - R2) / R5 + (R3 - R4) / R5
MsgBox OPE
End Sub