:Mon_objet_excel>>ActiveSheet>>Names>>Add("mon_nom", "=$A$1")
:Mon_objet_excel>>ActiveSheet>>Names>>Add("mon_nom", "=$A$1,$B$2")
ActiveSheet.Names.Add Name:= "mon_nom", RefersTo:= "=$A$1,$B$2"
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5577&post_id=22864