Private Sub Worksheet_Change(ByVal Target As Range)
Dim a&, b$, d&, l, c&, f&, g$, k&, h, e&, Plage As Range
If Target.Address = "$G$8" Then
Set Plage = [Z1:Z21]
l = Application.Match([D33], Plage, 1)
d = Cells(l, 26)
b = ([D33] - d) / 2
If l Mod 2 = 1 Then
[E33] = b
Else
[E33] = -b
End If
End If
If Target.Address = "$G$10" Then
Set Plage = [Z1:Z21]
h = Application.Match([D34], Plage, 1)
k = Cells(h, 26)
g = ([D34] - k) / 2
If h Mod 2 = 1 Then
[E34] = g
Else
[E34] = -g
End If
End If
End Sub