Private Sub Worksheet_Change(ByVal Target As Range)
'Si le nombre de cellules modifiées est supérieur à 1, alors on sort de la procédure
If Target.Count > 1 Then Exit Sub
'Si la cellule modifiée est A2, C2 ou E2
If Not Application.Intersect(Target, Range("A2,C2,E2")) Is Nothing Then
'On désactive les évènements pour éviter que la procédure soit relancée par la mise à jour de A2, C2 et E2
Application.EnableEvents = False
'On effectue la mise à jour de A2, C2 et E2
Range("A2,C2,E2") = Target.Value
'On réactive les évènements
Application.EnableEvents = True
End If
End Sub