instructions freeware ;-)

'multi-sélection d'objets (forme, dessin, boutons de formulaires)
activesheet.shapes("Zone de Texte 1").select:activesheet.shapes("Zone de Texte 2").select replace:=false

'sélection d'un tableau sans sa ligne de titre
Set Tableau = Range("A1").CurrentRegion
Tableau(2, 1).Resize(Tableau.Rows.Count - 1, Tableau.Columns.Count).Select


bye
stephane