Donner une nom à un plage de cellule en VBA

Bonjour

Je voudrais donner un nom à une plage de cellule par programmation

J'ai fait la manip sur la feuille en enregistrant la macro et voilàa ce que ça donner

Code:

---

1 2 3 4

Range("E45: P45").Select ActiveWorkbook.Names.Add Name:="cotis", RefersToR1C1:= _ "='SAL. BUREAU'!R45C5:R45C16" ActiveWorkbook.Names("cotis").Comment = ""

---

J'ai copier ce code dans mon programme mais après exécution, je vais voir mon document et le nom "cotis" n'apparaît pas dans la liste des noms,
pourtant si je vais voir dans gestionnaire de nom, il est bien présent (mais sans valeur associées).

Merci pour votre aide

J'ai fait le test avec un fichier tout simple (en pièce jointe) et ça ne fonctionne pas

je n'ai pas réussi à le mettre en pièce jointe.
Le tableau est tout bête, 4 colonnes, trois lignes.

La macro

Code:

---

1 2 3

Range("A5: D5").Select ActiveWorkbook.Names.Add Name:="test", RefersToR1C1:="=Feuil1!R5C1:R5C4" ActiveWorkbook.Names("test").Comment = ""

---

J'ai trouvé...il faut enlever le commentaire et mettre Range :cry:

Code:

---

1 2 3 4

liste = Range("A5:D5").Address ActiveWorkbook.Names.Add Name:="test", RefersToR1C1:=Range(liste)   'ActiveWorkbook.Names("test").Comment = ""

---