Excel VBA sélectionnez plusieurs formes

ActiveSheet.Shapes.Range(Array("Oval 2", "Rectangle 1")).Select
The VBA Guy