Case "BCE" 'cas "BCE"
Set dest = Sheets("AFFICHAGE_BCE").Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest
dest.Resize(1, Range(Cells(Target.Row, 1), Target).Columns.Count).Value = Range(Cells(Target.Row, 1), Target).Value
Case "BCA" 'cas "BCA"
Set dest = Sheets("AFFICHAGE_BCA").Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest
dest.Resize(1, Range(Cells(Target.Row, 1), Target).Columns.Count).Value = Range(Cells(Target.Row, 1), Target).Value