re,
le problème avec ta formule, c'est que si tu effaces D7, C7 redeviendra vide.
Copies ca dans le code de ta feuille,et enlève ta formule en C7, mais ne connaissant pas les valeurs possibles dans tes différentes cellules, je ne garantie rien :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E7")) Is Nothing And Target.Count = 1 Then
If Range("E7") <> "" Then
Range("C7") = Range("D7")
Range("D7") = ""
Else
Range("C7") = ""
End If
End If
End Sub
Cordialement,