Re,
Change ce code à la place de l'autre
si tu veux revenir en arrière, double clique sur E9
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column = 6 Then
Cells(Target.Row, 8) = Cells(Target.Row, 6)
Cells(Target.Row, 5) = Cells(Target.Row, 6) + Cells(Target.Row, 5)
End If
If Target.Column = 5 Then
Cells(Target.Row, 8) = ""
Cells(Target.Row, 5) = Cells(Target.Row, 5) - Cells(Target.Row, 6)
End If
End Sub