Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2]) Is Nothing Then Exit Sub
If TypeName(Evaluate(CStr([C2]))) = "Range" Then Evaluate(CStr([C2])).Copy [E2] Else [E2].Clear
[E2].EntireColumn.AutoFit 'ajustement largeur
End Sub